在窗体画一个命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Dim a(5)As String For i=1 To 5 a(i)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b; Next End Sub 程序运行后，单击命令按钮，输出结果是______。

A． ABCDE

B．1 2 3 4 5

C．abcde

D．出错信息

[单选题]在窗体画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5)As String For i=1 To 5 a(I)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b； Next End Sub 程序运行后，单击命令按钮，输出结果是______。A．ABCDEB．1 2 3 4 5C．abcdeD．出错信息

[单选题]在窗体上画一个命令按钮，然后编写如下程序： 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

[单选题]（29）在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )D．im I, NumRandomizeD．oF．or I=1 To 1000Num=Int(Rnd*100)Print Num;Select Case NumC．ase 12E．xit ForC．ase 58E．xit DoC．ase 65, 68, 92E．ndE．nd SelectNext ILoopE．nd Sub上述事件过程执行后，下列描述中正确的是（ ）。A．）Do 循环执

[单选题]在窗体上画一个命令按钮，然后编写如下事件过程：private sub command1_click()dima,basintegera=Val(inputbox("EntertheFirstinteger"))b=Val(inputbox("EntertheSecondinteger"))Printb+aend sub程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和111，则输出结果是( )A．456B．111C．567D．111456

[主观题]在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()D．im Y as StringX=5Y=X & Space(3) & XPrint X；Print Trim(Y)；Len(Trim(Y))E．nd Sub该程序的执行结果是[ ]。

[单选题]在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()F．or i=1 To 4x=4F．or j=1 To 2x=x+6NextNextPrint xE．nd Sub程序运行后,单击命令按钮,输出结果是A．12B．13C．16D．17

[单选题]在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()D．im I，NumRandomizeD．oF．or I=1 To 1000Num=Int(Rnd*100)PrintNum；SelectCase NumC．ase 12E．xit ForC．ase 58E．xit DoC．ase 65，68，92E．ndE．nd SelectNextILoopE．nd Sub上述事件过程执行后，下列描述中正确的是A．Do循环执行的次数为1000次B．在For循

[单选题]在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()F．or i=1 To 4x=4F．or j=1 To 3X=3F．or k=1 To 2x=x+6NextNextNextPrint xE．nd Sub 程序运行后，单击命令按钮，输出的结果是A．7B．15C．157D．538

[单选题]在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() x=O Do Until X=-1 a=InputBox("请输入a的值") a=Val(A) b=InputBox("请输入b的值") b=Val(B)x=lnputBox("请输入x的值") x=Val(x) a=a+b+x Loop Printa End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入10、8A．12B．13C．14D．15

[单选题]在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim a(5)As String Fori=1 To 5 a(i)=Chr(Asc("A")+(11)) Nexti For Each b In a Print b Next End Sub 程序运行后，单击命令按钮，输出结果是( )。A．ABCDEB．1 2 3 4 5C．abcdeD．出错信息