运行下列程序：

Private Sub Command1_Click( )

x = "祝你成功"

y = "1234"

F．or i = 1 To 4

z = z + Mid(x, i, 1) + Left(y, 1)

Next i

Print z

E．nd Sub

单击Command1命令按钮后，则在窗体上显示的结果是( )。

A．祝你成功1234

B．祝1你2成3功4

C．1234祝你成功

D．祝1你1成1功1

[单选题]运行下列程序: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 = 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()D．im x As Integer, n As Integern = 0D．on = n + 2x = x + nLoop While n< 10D．ebug.Print xE．nd Sub单击Command1命令按钮后，则在立即窗口上输出结果是是()。A．2B．10C．12D．30

[单选题]运行下列程序：Private Sub Command1_Click( )a = Val(InputBox("a = "))Print fun1(a)E．nd SubPrivate Function fun1(b)If b > 0 Thenfun1 = 10E．lseIf b = 0 Thenfun1 = 9E．lsefun1 = 8E．nd IfE．nd Function单击按钮后从键盘为变量a输入数据3，输出的结果是( )。A．3B．8C．9D．10

[单选题]运行下列程序：Private Sub Command1_Click()a = 100b = 24a = a Mod bb = b / aa = b - aD．ebug.Print aE．nd Sub单击Command1命令按钮后，则在立即窗口上输出结果是()。A．2B．24C．50D．100

[单选题]运行下列程序：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( )s$ = "abcdefabcdefabcdef"k = InStr(s$, "c")D．o While k > 0n = n + 1s$ = Mid(s$, k + 1)k = InStr(s$, "c")LoopPrint nE．nd Sub单击Command1命令按钮后，则在窗体上显示的结果是( )。A．1B．2C．3D．4

[单选题]运行下列程序：Private Sub Command1_Click( )s1 = "Basic"F．or i = 1 To Len(s1)t = Mid(s1, i, 1)s2 = s2 + Chr(Asc(t) + 1)Next iD．ebug.Print s2E．nd Sub单击Command1命令按钮后，则在立即窗口上输出结果是( )。A．CbtjdB．65C．BasicD．出错

[单选题]下列程序： Private Sub Command1_Click() a=InputBox("请输入") b=InputBox("请输入") Print=a+b End Sub 运行时输入3和4，输出的结果是A．7B．34C．3+4D．出错