在窗体上添加一个命令按钮,程序运行时单击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
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
举一反三
- 下面程序运行后，点击窗体，变量 x和y的值分别为( )、( ) Private Sub Form_Click() Dim x, y As Integer x = 5: y = 10 nc x, y Print "x="; x; "y="; y End Sub Private Sub nc(ByVal a%, b%) a = a + b b = a a = a * b 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 ，然后单击“确定”按钮，程序的运行结果为（ ）。
- 在窗体上画一个命令按钮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 运行窗体后，单击命令按钮，则消息框的输出结果为______。
- 设有如下通用过程，在窗体上画一个名称为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 程序运行后，如果单击命令按钮，则在窗体上显示的内容是（）
- 设有如下两个过程: Private Sub Form_Click() Dim x!,y! x = 18: y = 10 Call PPP((x), y) Print x,y End Sub Private Sub PPP(a As Single, b As Single) a = a + b Print a,b b = a + b Print a,b End Sub 运行程序后, 则输出结果是________