（ 32 ）设有以下程序：

Private Sub Form_Click()

X=50

F．or i=1 To 4

Y=InputBox( “ 请输入一个整数 ” )

Y=Val(y)

If y Mod 5=0 Then

a=a+y

x=y

E．lse

a=a+x

E．nd If

Next i

Print a

E．nd Sub

程序运行后，单击窗体，在输入对话框中依次输入 15 、 24 、 35 、 46 ，输出结果为

A． ） 100

B． ） 50

C． ） 120

D． ） 70

[单选题]运行下列程序：Private Sub Form_Click()a = 32: b = 5D．oa = a / 2b = b + 1Loop While b< 10Print aE．nd Sub单击窗体后，则在窗体上显示的结果是()。A．1B．2C．5D．11

[单选题]设有如下程序：Private Sub Form_Click()D．im i As Integer，x As String,Y As Stringx=”ABCDEFG”F．or i=4 To 1 Step-1y=Mid(x，i，i)+yNext iPrint yE．nd Sub程序运行后，单击窗体，输出结果为A．ABCCDEDEFGB．AABBCDEFGC．ABCDEFGD．AABBCCDDEEFFGG

[单选题]设有如下程序：Private Sub Form_Click()C．lsa$=”123456”F．or i=1 To 6Print Tab(12-i)；_____Next iE．nd Sub程序运行后，单击窗体，要求结果如图所示，则在_____处应填入的内容为A．Left(a$，i)B．Mid(a$，8-i，i)C．Right(a$，i)D．Mia(a$，7，i)

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

[单选题]运行下列程序: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() A=1 For i＝1 To 3 Select Case i Case 1,3 A＝A+1 Case 2,4 A＝A+2 End Select Next i Print A End Sub 程序运行后，单击窗体，则在窗体上显示的内容是A．6B．5C．4D．3

[单选题]设有如下程序：Private Sub Form_Click()D．im ary(1 To 5)As IntegerD．im i As IntegerD．im sum As IntegerF．or i=1 To 5ary(j)=i+1sum=sum+ary(i)Next 1Print sumE．ud Sub程序运行后，单击窗体，则在窗体上显示的是A．15B．16C．20D．25

[试题]设有以下窗体单击事件过程：Private Sub Form_Click()a=1F．or i=1 To 3E．nd SelectNext iE．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