在窗体中添加一个命令按钮 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 ，然后单击“确定”按钮，程序的运行结果为（ ）。
举一反三
- 在窗体中添加一个命令按钮Command1，并编写如下程序： PrivateSubCommand1_Click() x=InputBox(x) Ifx^2=9Theny=x Ifx^2<9Theny=1/x Ifx^2>9Theny=x^2+1 Printy EndSub 程序运行时，单击命令按钮，在InputBox中输入3，然后单击“确定”按钮，程序的运行结果为（）。
- 在窗体上添加一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i Print x 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
- 在窗体上添加一个命令按钮,程序运行时单击Commandl后,窗体上的输出结果为。 Private Sub fun(a%, ByVal b%) a=a*2:b=b*2 End Sub Private Sub Command1_Click() Dim x%,y% x=10:y=20 Call fun(x, y) Print x; y End Sub
- 设有如下通用过程，在窗体上画一个名称为command1的命令按钮，然后编写如下事件过程： private sub command1_click() dim x as integer x=10 y=5 y=f(x) print x;y end sub public function f (x as integer) dim y as integer x=20 y=2 f=x*y end function 程序运行后，如果单击命令按钮，则在窗体上显示的内容是（）