单项选择题

在窗体中添加一个命令按钮，编写如下程序：
Private Sub Test(p，m，n)
p=p+1：m=m+1：n=n+1
Print "Sub: ";p；m；n
End Sub
Private Sub Command1.Click()
a1=1：b=2：c1=3
Call Test((a，b1+3，(c1))
Print "Main："；a1；b1；c1
End Sub
程序运行后，输出结果为

A．
Sub： 2 6 4
Main： 2 6 4
B．
Sub： 2 6 4
Main： 2 6 4
C．
Sub： 2 6 4
Main： 1 2 3
D．
Sub： 2 6 4
Main： 2 2 3
<上一题 目录 下一题>
热门 试题

单项选择题
设在窗体上有个文本框，然后编写如下的事件过程。 Private Sub Text1_KeyDown(KeyCode As Integef，Shift As Integer) Const Alt=4 ConstKey_F2=&H71 altdown%=(Shift And Alt)＞0 f2down%=(KeyCode=Key_F2) If altdown% And f2down% Then Text1.Text= BBBBB End If End Sub 上述程序运行后，如果按[Shift+F12]，则在文本框中显示得是
A．Alt+n
B．BBBBB
C．随机出几个数
D．文本框平均内容无变化
单项选择题
有如下函数过程。 Function Fun( By Val x As Integer,By Val y As Integer) As Integer Do While y ＜＞ 0 reminder = x Mod y xmy y = reminder Loop Fun = x End Function 以下调用函数的事件过程，该程序的运行结果是 Private Sub CommandT_Click( ) Dim a As Integer,b As Integer a = 100:b =25 x =Fun(a,B) Print x End Sub
A．0
B．25
C．50
D．100
相关试题