运行下列程序：

Private Sub Command1_Click()

D．im x As Integer, n As Integer

n = 0

D．o

n = n + 2

x = x + n

Loop While n< 10

D．ebug.Print x

E．nd Sub

单击Command1命令按钮后，则在立即窗口上输出结果是是()。

A．2

B．10

C．12

D．30

[单选题]运行下列程序：Private Sub Command1_Click( )D．im A(10) As IntegerF．or i = 1 To 5A．(i) = iA．(i + 5) = iNext iF．or i = 1 To 10s = s + A(i)Next iD．ebug.Print sE．nd Sub单击按钮后，则在立即窗口内显示的结果是( )。A．5B．10C．30D．出错信息

[单选题]运行下列程序:Private Sub Command1_Click( )Dim s1 As String * 1Dim s2 As Strings1 = &quo运行下列程序：Private Sub Command1_Click( )D．im s1 As String * 1D．im s2 As Strings1 = "a"F．or i = Asc(s1) To Asc(s1) + 4s2 = s2 & Chr(i)Next iPrint s2E．nd Sub单击Co

[单选题]阅读下列程序。Private Sub Command1_Click()D．im i As Integer, k As Integerk=2F．or i=1 To 3Print Fun(k) ;NextE．nd SubF．unction Fun(j As Integer)Static ba=0a=a + 1b=b + 1F．un=a  b + jE．nd Function程序运行后,单击命令按钮输出结果是A．2 3 4B．3 4 5C．5 6 7D．3 5 6

[单选题]运行下列程序:Private Sub Command1_Click( )x = 3If x < 3 Then Print x £« 3;If x < 4运行下列程序：Private Sub Command1_Click( )x = 3If x < 3 Then Print x + 3;If x < 4 Then Print x + 4;If x < 5 Then Print x + 5;If x < 6 Then Print x + 6;PrintE．nd Sub单击Co

[单选题]运行下列程序：Private Sub Command1_Click( )x = "祝你成功"y = "1234"F．or i = 1 To 4z = z + Mid(x, i, 1) + Left(y, 1)Next iPrint zE．nd Sub单击Command1命令按钮后，则在窗体上显示的结果是( )。A．祝你成功1234B．祝1你2成3功4C．1234祝你成功D．祝1你1成1功1

[单选题]运行下列程序：Private Sub Command1_Click( )x = 1z = InputBox("请输入一个整数2")Select Case zC．ase Is > 0y = x + 1C．ase Is = 0y = x - 2C．ase Elsey = x + 5E．nd SelectPrint x; yE．nd Sub从键盘输入2，输出的结果是( )。A．0 1B．1 2C．1 3D．5 5

[单选题]阅读下列程序。 Private Sub Command1_Click() Dim i As Integer，k As Integer k=2 For i=1 To 3 Print Fun(k)； Next End Sub Function Fun(j As Integer) Static b a=0 a=a + 1 b=b + 1 Fun=a*b+j End Function 程序运行后，单击命令按钮输出结果是A．234B．345C．567D．356

[单选题]阅读下列程序：Private Sub Command1_Click()D．im i As Integer,k As Integerk=2F．or i=1 To 3Print H(k);Next iE．nd SubF．unction H(j As Integer)Static ba=0a=a+1b=b+1H．=a*b+jE．nd Funmion单击命令按钮，执行程序，输出结果是( )。A．2 3 4B．3 4 5C．5 6 7D．3 5 6

[单选题]阅读下列程序： Private Sub Command1_Click() Dim i As Integer, k As Integer k=2 For i=1 To 3 Print H(k); Next i End Sub Function H(j As Integer) Static b a=0 a=a+1 b=b+1 H=a*b+jEnd Function单击命令按钮，执行程序，输出结果是( )。A．2 3 4B．3 4 5C．5 6 7D．3 5 6

[单选题]阅读下列程序： Private Sub Command1_Click() Dim i As Integer，k As Integer k=2 For i=1 To 3 Print Fun(k)； Next End Sub Function Fun(j As Integer) Static b a=0 a=a+1 b=b+1 Fun=a*b+j End Function 程序运行后，单击命令按钮输出结果是A．234B．345C．567D．356