运行下列程序：

Private Sub form_Click( )

x = InputBox("请输入一个数：")

Select Case x

C．ase Is > 0: y = x + 1: x = y + 1

C．ase Is = 0: y = x + 2: x = y + 2

C．ase Else: y = x + 3: x = y + 3

E．nd Select

Print x; y

E．nd Sub

从键盘输入1，输出的结果是( )。

A．3 2

B．2 3

C．2 2

D．1 4

[单选题]运行下列程序：Private Sub form_Click( )s = InputBox("请输入一个字符A：")Select Case Asc(s)C．ase Is > 65n = String(3, UCase(s))C．ase Is = 65n = String(3, LCase(s))C．ase Elsen = sE．nd SelectPrint nE．nd Sub从键盘输入A，输出的结果是( )。A．aaaB．AAAC．65D．a

[单选题]运行下列程序:Private Sub Form_Click( )Dim x As Integer, y As String, z As Stringy = &qu运行下列程序：Private Sub Form_Click( )D．im x As Integer, y As String, z As Stringy = "12345"F．or x = 1 To Len(y)z = Mid(Left(y, x), 1)Next xPrint zE．nd Sub单击窗体后，则在窗体

[单选题]运行下列程序：Private Sub form_Click( )x$ = "123": y$ = "abc"n = Len(x)F．or i = 1 To nPrint Mid(x$, n + 1 - i, 1) + Mid(y$, i, 1);Next iPrintE．nd Sub单击窗体后，则输出结果是( )。A．a1b2c3B．a3b2c1C．3a2b1cD．1c2b3a

[单选题]运行下列程序：Private Sub form_Click( )x = 8: y = 2C．all fun1((x), y)Print x, yE．nd SubPrivate Sub fun1(x, y)s = xx = s / yy = s Mod yE．nd Sub单击窗体后，则在窗体上显示的结果是( )。A．4 2B．8 2C．8 0D．2 4

[单选题]运行下列程序：Private Sub form_Click( )F．or i = 1 To 2x = 1F．or j = 1 To 3x = 5F．or k = 1 To 4x = x + 2Next kNext jNext iPrint xE．nd Sub单击窗体后，则输出结果是( )。A．5B．13C．25D．48

[单选题]运行下列程序：Private Sub Form_Click( )D．im a As Integera = 1F．or i = 1 To 5C．all fun1(a)Next iPrint aE．nd SubPrivate Sub fun1(x)y = 2D．ox = x + yLoop Until x > 10E．nd Sub单击窗体后，则在窗体上显示的结果是( )。A．5B．1 2 3 4 5C．19D．7

[单选题]运行下列程序：Private Sub Form_Click( )F．or i = 1 To 20If fun1(i) Thens = s + 1E．nd IfNext iPrint sE．nd SubPrivate Function fun1(y) As BooleanIf y Mod 2 <> 0 Thenfun1 = FalseE．lsefun1 = TrueE．nd IfE．nd Function单击窗体后，则在窗体上显示的结果是( )。A．110B．10C．0D．20

[单选题]运行下列程序：Private Sub form_Click( )F．or i = 1 To 4t = t * 10 + is = s + tNext iPrint sE．nd Sub单击窗体后，则输出结果是( )。A．1234B．4321C．1370D．4444

[单选题]运行下列程序：Private Sub Form_Click( )F．or i = 3 To 1 Step -1F．or j = 2 To 1 Step -1D．ebug.Print "A"; String(3 - i, "*");Next jNext iE．nd Sub单击窗体后，则在立即窗口内显示结果是( )。A．AAA*A**A***B．AAA*A*A**A**C．A*A*A*A*A*A*D．A***

[单选题]运行下列程序:Private Sub form_Click( )Dim sl As String, s2 As Strings1 = "1234&quo运行下列程序：Private Sub form_Click( )D．im sl As String, s2 As Strings1 = "1234"m = 0F．or i = 3 To 1 Step -1m = m + 1s2 = fun1(s1, m)D．ebug.Print s2;Next iE．nd SubPrivat