设有以下程序：Private Sub Form_ Click() x=50 For i=1 To 4 y=InputBox(“请输入—个整数”) y=Val(y) If y Mod 5=0 Then a=a+ y x=y Else a=a+ x End If Next i Print aEnd Sub 程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为 ______。

A．100

B．50

C．120

D．70

[单选题]设有如下程序： Private Sub Form_ Click() Dim a Dim i As Integer, j As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 3 Print a(5 - i) Next End Sub程序运行后，单击窗体，则在窗体上显示的是______。。A．4 3 2 1B．5 4 3 2C．6 5 4 3D．7 6 5 4

[单选题]（ 32 ）设有以下程序：Private Sub Form_Click()X=50F．or i=1 To 4Y=InputBox( “ 请输入一个整数 ” )Y=Val(y)If y Mod 5=0 Thena=a+yx=yE．lsea=a+xE．nd IfNext iPrint aE．nd Sub程序运行后，单击窗体，在输入对话框中依次输入 15 、 24 、 35 、 46 ，输出结果为A． ） 100B． ） 50C． ） 120D． ） 70

[单选题]阅读程序：Private Sub Form_ Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print aEnd Sub 程序运行后，单击窗体，输出结果是______。A．105B．1C．120D．15

[单选题]下面程序执行的结果是______。 Private Sub Form_ Click() A＄=“123”：B＄=“456” C=Val(A＄)+Val(B＄) Print C/100 End SubA． 123B．3C．5D．579

[单选题]下面程序： Private Sub Form. _Click () Dim x, y, z As Integer x=5 y=7 z=0 Call P1(x, y, z) Print Str (z) End Sub Sub P1 (ByVal a As Integer, ByVal b As Integer , c As Integer) c= a+b End Sub 运行后的输出结果为______。A．0B．12C．Str(z)D．显示错误信息

[单选题]程序如下：Private Sub form_ Activate() Dim a As Integer for i=4 To 5 a=fun(i) Print a, Next iEnd SubPrivate Function fun(n)As Integer if n ＞0 then fun =n* fun(n-1) Else fun=1 End ifEnd Function 程序最后打印结果是______。A．4 5B．12 120C．24 120D．24 60

[单选题]设有如下程序：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单击窗体后，则在窗体