运行下列程序：

Private Sub Form_Click()

a = 32: b = 5

D．o

a = a / 2

b = b + 1

Loop While b< 10

Print a

E．nd Sub

单击窗体后，则在窗体上显示的结果是()。

A．1

B．2

C．5

D．11

[单选题]运行下列程序：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( )a$ = 2b$ = 1C．all abcd(a, b, c$, d$)Print c; dE．nd SubPrivate Sub abcd(x$, y$, z$, s$)z = x + ys = x - yE．nd Sub单击窗体后，则在窗体上显示的结果是( )。A．3 1B．1 3C．211D．显示出错信息

[单选题]运行下列程序: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( )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

[单选题]运行下列程序:Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x > 20x运行下列程序：Private Sub Form_Click( )D．im y As Integer, x As IntegerD．o Until x > 20x = x + 10y = y + xIf x > 20 Then Exit DoLoopPrint x, yE．nd Sub单击窗体后，则在窗体上显示的结果是( )。A．1

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