在窗体上添加一个按钮(cmd) ，编写如下程序：

Private sub crud_click( )

D．im s, i

F．ori = 1 to 10

s=s+i

Next

Msgbox s

E．nd sub

程序运行后，单击按钮，在消息框中显示的信息为 [ ] 。

[单选题]在窗体中添加一个命令按钮，并编写如下程序：Private Sub Command1_ Click() x=1: y=2: z=3 x=y: y=z: z=xEnd Sub程序执行后，输出的结果是______。A．3B．0C．2D．1

[单选题]在窗体中添加一个命令按钮,编写如下程序:Private Sub Sub1(p,m,n)p=p+1:m=m+1:n=n+1Print "sub1:";p;m;nE．nd SubPrivate Sub Command1_Click()a1=1:b=2:c1=3C．all Sub1(a,b1+3,c1)Print"Main:";a1;b1;c1E．nd Sub程序运行后,输出结果为A．Sub: 2 6 4 Main: 2 6 4B．Sub: 2 6 4 Main: 2 6 4C．Sub: 2

[单选题]在窗体中添加一个命令按钮，编写如下程序： 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 4B．Sub： 2 6 4 Main： 2 6

[单选题]在窗体中添加一个命令按钮，编写如下程序： 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 4B．Sub：2 6 4 Main：2 6 4C．Sub：2

[单选题]在窗体上添加按钮cmd，并编写如下事件代码： Private sub crud_Click( ) For i=1 to4 x=4 For j=1 to 3 x=3 For k=1 to 2 x=x+6 Next k Next j Next i Msgbox x End sub 打开窗体，单击按钮后，消息框中显示的信息为( )。A．7B．15C．157D．538

[主观题]在窗体上添加一个命令按钮(名为Cmd)，然后编写如下事件过程：Private Sub Cmd_Click( )D．im sum,kF．or k=1 to 6sum=30+kNext kMsgBox sum+kE．nd Sub打开窗体后，单击命令按钮，消息框的输出结果是[ ]。

[单选题]在窗体中添加一个命令按钮，然后编写如下代码： Private Sub Command1_Click( ) For i=l To 4 x=4 For j=1 To 3 x=3 For k=l To 3 x=x+6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是A．7B．15C．21D．538

[单选题]在窗体上画一个命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim a As Integer, b As integer b = 1 For a = 1 To 100 If b ＞＝ 10 Then Exit For If b Mod 3 = 1 Then b = b + 3 End If Next a Print a End Sub 在命令按钮上单击后，窗体上显示的结果是 ______。A．101B．6C．5D．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．2 3 4B．2 5 9C．3 5 4D．2 4 3

[单选题]在窗体上画一个命令按钮，然后编写如下程序： Private Sub Commandl_Click( ) Dim a AS Integer，b As Integer a=15 b=2 t N(a，B)End Sub Function N(x As Integer，y As Integer) As Integer N=IIf(x)y，x，y) End Function 程序运行后，单击命令按钮，输出结果为A．1B．2C．15D．8