更多"设有如下程序： Private Sub Form_Cliok（ ） "的相关试题:
[填空题]设有如下程序：
Private Sub Form_Cliok（ ）
Dima As Integer,S As Integer
n=8
s=0
Do
s=s+n
n=n-1
Loop While n＞0
Print s
End Sub
以上程序的功能是 [7] ；程序运行后，单击窗体，输出结果为 [8] 。
[填空题]设有如下程序
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 n As Integer, s As Integer n = 8
s = 0
Do
s = s + n n = n - 1
Loop While n > 0
Print s
End Sub
以上程序的功能是 _________。程序运行后，单击窗体，输出结果为 _________。
[单项选择]设有如下过程：
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyUp(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode+2)
End SUb
若把窗体的KeyPreview属性设置为True，程序运行后，如果按“A”键，则输出结果为( )。
A. A
B. A
C. A
D. A
[单项选择]有如下程序：
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
EndIf
Next
Print Sum
End Sub
程序运行后，单击窗体，输出结果为
A. 12
B. 30
C. 24
D. 18
[单项选择]有如下程序： Private Sub Form_CHck（ ） Dim i As Integer，sum As Integer sum=0 For i=2 TO 10 If Mod 2 ＜＞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
