更多"阅读下列程序： Private Sub Form Click（ ） "的相关试题:
[单项选择]阅读下列程序： 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（ ）
Dim a As Integer， b As Integer
a=20： b=50
p1 a， b
p2 a， b
p3 a， b
Print "a="； a， "b="； b
End Sub
Sub p1(x As Integer， ByVal y As Integer)
x = x+10
y = Y+20
End Sub
Sub p2(ByVal x As Integer， y As Integer)
x = x+10
y = y+20
End Sub
Sub p3(ByVal x As Integer， ByVal y As Integer)
x = x+10
y = y+20
End Sub
该程序运行后，单击窗体，则在窗体上显示的内容是：a==______和b=______。
[单项选择]有如下程序： Private Sub Form_Click（ ） Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。
A. 12
B. 30
C. 24
D. 18
[单项选择]阅读程序：
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( )
Dim Check As Boolean，Counter As Integer
Check=Tree
Counter=5
DO
DO While Counter＜20
Counter=Counter+1
If Counter=10 Then
Check=False
Exit Do
End if
Loop
Loop Until Check=False
Print Counter
End Sub
程序运行后，单击窗体，输出结果为 【9】 。
[单项选择]下面程序：
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(By Val a As Integer, By Val b As Integer, c As Integer)
c=a+b
End Sub
运行后的输出结果为______。
A. 0
B. 12
C. Str(2)
D. 显示错误信息
[填空题]阅读以下程序：
Private Sub Form click（ ）
Dim k,n, m As integer
n=10
m=1
k=1
Do While k＜=n
m=m+2
k=k+1
Loop
Print m
End Sub
单击窗体程序的执行结果是 【10】 。
[填空题]阅读下面的程序：
Private Sub Form_Click（ ）
Dim Check As Boolean, Counter As Integer
Check = True
Counter = 5
Do
Do While Counter < 20
Counter = Counter + 1
If Counter = 10 Then Check = False Exit Do
End If
Loop
Loop Until Check = False
Print Counter
End Sub
程序运行后，单击窗体，输出结果为 _________。
[单项选择]阅读下面的程序：
Private Sub Form_Click（ ）
Dim Check， Counter
Check=True
Counter=0
Do
Do While Counter ＜ 20
Counter=Counter + 1
If Counter=10 Then
Check = False
Exit Do
End If
Loop
Loop Until Check = False
Print Counter， Check
End Sub
程序运行后，单击窗体，输出的结果为
A. 15 0
B. 20 -1
C. 10 True
D. 10 False
[填空题]阅读以下程序：
Private Sub Form_click（ ）
Dim k, n, m As integer
n = 20
m = 1
k = 1
Do While k ＜= n
m=m+2
k = k + 1
Loop
Print m
End Sub
单击窗体程序的执行结果是 【4】 。
[填空题]
阅读下面的程序：
Private Sub Form_Click（ ）
Dim Check As Boolean,Counter As Integer
Check=True
Counter=5
Do
Do While Counter＜20
Counter=Counter+1
If Counter=10 Then
Check=False
Exit Do
End If
Loop
Loop Until Check=False
Print Counter
End Sub
程序运行后，单击窗体，输出结果为（）。
[填空题]阅读以下程序：
Private Sub Form_click（ ）
Dim k,n,m As integer
n=10
m=1
k=1
Do While k＜=n
m=m+2
k=k+1
Loop
Print m
End Sub
单击窗体程序的执行结果是 【10】 。
