单项选择题

在窗体中添加一个命令按钮，编写如下程序：
Private Sub Subl(p,m,n)
　　p=p+1:m=m+1:n=n+1
　　Print"subl:";p;m;n
End Sub
Private Sub Command1_Click()
　　al=1:b=2:c1=3
　　Call Subl(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
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String Str=Chr(KeyAscii) KeyAscii=Asc(UCase(str)) Text1.Text=String(2,KeyAscii) End Sub 程序运行后，如果在键盘上输入字母 b ，则在文本框Text1中显示的内容是
A．bbb
B．BBB
C．BB
D．bb
单项选择题
有如下程序： Private Sub Form_Click() Dim i As Integer，Sum As Integer Sum=0 For i=2 To 10 If i Mod 2=0 And i Mod 3＜＞0 Then Sum=Sum+i End If Next Print Sum End Sub 程序运行后，单击窗体，输出结果为
A．12
B．30
C．24
D．18
相关试题