举一反三
- 下列程序运行的结果为（）。 Public Sub f(n%, ByVal m%)...) Print x, y End Sub
- 单击命令按钮时，下列程序代码的执行结果为( )。 Private Sub Procl(nAs Integer,ByValmASInteger) n=nMod 10 m=m\10 End Sub PrivateSubCommandl_Click() Dimx As Integer Dimy As Integer x=12 y=34 CallProcl(x，y) Printx；y End Sub A: 12 34 B: 2 34 C: 2 3 D: 12 3
- 在窗体中添加一个命令按钮 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 ，然后单击“确定”按钮，程序的运行结果为（ ）。
- 运行以下程序，显示的结果为（）。Public Sub Sp(...y) Print x, yEnd Sub
- 在窗体上画一个命令按钮Command1，编写事件代码如下： Public x As Integer Private Sub Command1_Click() x=3 Call f1 Call f2 MsgBox x End Sub Private Sub f1() x=x*x End Sub Private Sub f2() Dim x As Integer x=x+4 End Sub 运行窗体后，单击命令按钮，则消息框的输出结果为______。
内容
- 0
在窗体上添加一个命令按钮,程序运行时单击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
- 1
在窗体中添加一个命令按钮Command1，编写如下代码： Private Sub Command1_Click() x = 6 If x > 6 Then If x = 6 Then Print "a" Else Print "b" End If Else If x < 8 Then Print "c" Else If x = 6 Then Print "d" End If End If End If End Sub 运行后，单击命令按钮，则在窗体上显示的是（ ）。
- 2
设有下面程序 Sub inc(a As Integer) Static x As Integer x = x + a Print x; End Sub Private Sub Form_Click() inc 2 inc 3 inc 4 End Sub 程序运行后，单击命令按钮 Command1 ，则输出的结果是________
- 3
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command1______Click() x＝3 Call f1 Call f2 MsgBox x End Sub Private Sub f1() x＝x*x End Sub Private Sub f2() Dim x As Integer x＝x+4 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为______。
- 4
在窗体上画一个命令按钮，然后编写如下程序： Private Sub Comrnand3_Click( ) Cop 2 Cop 3 Cop 4 End Sub Sub Cop (a As Integer) Static x As Integer x=x + a Print x; End Sub 程序运行后，单击命令按钮，输出结果为( )。 A: 内联函数 B: 重载函数 C: 递归函数 D: 嵌套函数