更多"阅读程序： Sub Form_Click( ) a = 10"的相关试题:
[单项选择]阅读程序
SUB P(B( ) AS INTEGER)
FOR I=1 TO 4
B(I) =2*I
NEXT I
END SUB
PRIVATE SUB COMMAND1_CLICK( )
DIM A( 1 TO 4) AS INTEGER
A(1)=5
A(2) =6
A(3) =7
A(4) =8
P A( )
FOR I = 1 TO 4
MSGBOX A(I)
NEXT I
END SUB
运行上面的程序，单击命令按钮COMMAND1后，消息框4次输出的内容分别是( )。
A. 出错
B. 10, 12, 14, 16
C. 5, 6, 7, 8
D. 2, 4, 6, 8
[单项选择]阅读程序： Sub subP(b（ ）As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Command1_Click（ ） Dim a(1 To 4)As Integer a (1)=5 a (2)=6 a (3)=7 a (4)=8 subP a（ ） For i=1 To 4 Print a(i) Next i End Sub运行以上程序，单击命令按钮，输出结果为______ 。
A. 2 4 6 8
B. 5 6 7 8
C. 10 12 14 16
D. 出错
[填空题]阅读程序：
Sub p(b( ) As Integer)
For i=1 To 4
b(i)=2*i
Next i
End 5ub
Private Sub Command1_C1ick( )
Dima(1 To 4)As InteSer
a(1)=5
a(2)=6
a(3)=7
a(4)=8
caU p(a)
For i=1 To 4
Pdnt a(i)
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果为【15】。
[单项选择]请阅读程序：
Sub subP(b（ ）As Integer)
For i=1 To 4
b(i)=2*i
Next i
End Sub
Private Sub Command1_Click（ ）
Dim a(1 To 4)As Integer
a(1)=5:a(2)=6:a(3)=7:a(4)=8
subP a（ ）
For i=1 To 4
Print a(i)
Next i
End Sub
运行上面的程序，单击命令按钮，则输出结果是( )
A. 2
B. 5
C. 10
D. 出错
[单项选择]阅读程序：
Private Sub Form Click（ ）
a=0
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
程序运行后，单击窗体，输出结果是( )。
A. 105
B. 1
C. 120
D. 15
[填空题]阅读程序；
Option Base 1
Private Sub Form_ KeyPress (KeyAscii As Integer)
art = Array(268, 542, 693, 365, 489, 147, 852)
a1 = arr(1)
a2 = 1
If KeyAscii = 13 Then
For a = 2 To 6
If arr(i) ＞ a1 Then
a1 = arr(i)
a2 = i
End If
Next i
End If
Print a1; a2
End Sub
程序运行后，按回车键；输出结果是______。
[单项选择]阅读程序： Option Base 1 Private Sub Form_Click( ) Dim arr Sum Sum=0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 TO 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+art(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为
A. 13
B. 14
C. 27
D. 15
[单项选择]阅读程序：
Option Base 1
Private Sub Form_Click( )
Dim arr Sum
Sum=0
arr=Array(1，3，5，7，9，11，13，15，17，19)
For i=1 TO 10
If arr(i)/3=arr(i)/3 Then
Sum=Sum+art(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为
A. 13
B. 14
C. 27
D. 15
[单项选择]阅读程序：
Private Sub Form_Click( )
Dim i As Integer, sum As Integer
For i=2 To 10
If i Mod 2＜＞0 Then
Print i；
Else
sum=sum+i
End If
Next i
Print sum
End Sub
程序运行后，单击窗体，在窗体上的输出结果是______。
A. 3 5 7 9 30
B. 1 3 5 7 9
C. 2 4 6 8 20
D. 11 15 17 19 20
[单项选择]阅读程序：
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 a
End Sub
程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为( )。
A. 100
B. 50
C. 120
D. 70
[单项选择]阅读程序：
Private Sub Command1_Click（ ）
Dim arr
Dim i As Integer
arr=Array(0,1,2,3,4,5,6,7,8,9,10)
For i=0 To 2
Print arr(7-i)；
Next
End Sub
程序运行后，窗体上显示的是______。
A. 8 7 6
B. 7 6 5
C. 6 5 4
D. 5 4 3
[单项选择]阅读程序：
Option Base 1
Private Sub Form Click（ ）
Dim arr，Sum
Sum= 0
arr=Array(1，3，5，7，9，11，13，15，17，19)
For i=1 To 10
If arr(i)/3=arr(i)/3 Then
Sum=Sum+arr(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为
A. 13
B. 14
C. 27
D. 15
[单项选择]阅读程序：
Private Sub Form_Click（ ）
a=0
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
程序运行后，单击窗体，输出结果是( )。
A. 105
B. 1
C. 120
D. 15
