执行下列程序，单击命令按钮后，从键盘分别输入4和5，则输出是 。
private sub command1_click()
x=inputbox("请输入x的值")
y=inputbox("请输入y的值")
s=x
if x>y then s=y
s=s*s
print s
end sub
private sub command1_click()
x=inputbox("请输入x的值")
y=inputbox("请输入y的值")
s=x
if x>y then s=y
s=s*s
print s
end sub
举一反三
- 下列程序执行后，分别输入 54 ， 21 ， 38 ，打印结果是_______ Private Sub Command1_Click() X=InputBox("X") Y=InputBox("Y") Z=InputBox("Z") If X>y Then t=x ： x=Y ： Y=t If X>z Then t=x ： x=z ： z=t If y>z Then t=Y ： Y=z ： z=t Print x,Y,Z End Sub
- 当输入4时,以下程序的输出结果是. Private Sub Command1_Click() x = Val(InputBox(x)) If x ^ 2 < 15 Then y = 1 / x If x ^ 2 > 15 Then y = x ^ 2 + 1 Print y End Sub
- 在窗体中添加一个命令按钮 Command1 ， 并编写如下程序 ： Private Sub Command1_Click() x = InputBox(x) If x ^ 2 = 9 Then y = x If x ^ 2 < 9 Then y = 1 / x If x ^ 2 > 9 Then y = x ^ 2 + 1 Print y End Sub 程序运行时，单击命令按钮，在 InputBox 中输入 3 ，然后单击“确定”按钮，程序的运行结果为（ ）。
- 完成以下功能：计算分段函数完成程序。 x2+1 (x<0) y= 2x+1 (0≤x<1) 3x3 (x≥1) Private Sub Command1_Click() Dim y As Single, x As Single x = InputBox("请输入x的值") If x（） Then y = x * x + 1 （） x < 1 Then y = 2 * x + 1 Else y = 3 * x ^ 3 End If Print x; y End Sub
- 从键盘随机输入x和y，并计算x和y的和s，同时输出S的值