更多"设有如下程序： Private Sub Form_Click（ ） "的相关试题:
[填空题]设有如下程序：
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_Click（ ）
Dim a As Integer,S As Integer
n=8:S=0
Do
S=S+n:n=n-1
Loop While n＞0
Print S
End Sub
以上程序的功能是计算1-8的和。程序运行后，单击窗体，输出结果为 (10) 。
[单项选择]有如下程序：
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_ Activate（ ）
Dim a As Integer
for i=4 To 5
a=fun(i)
Print a,
Next i
End Sub
Private Function fun(n)As Integer
if n ＞0 then
fun =n* fun(n-1)
Else
fun=1
End if
End Function
程序最后打印结果是______。
A. 4 5
B. 12 120
C. 24 120
D. 24 60
[单项选择]设有如下过程：
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 x,y，z As Integer
x=5
y=7
2=0
Call P1(x,y，z)
Print Str(z)
End Sub
Sub P1(By Va1 a As Integer，By Va1 b As Integer，c As Integer)
c=a+b
EndSub
运行后的输出结果为_________。
A. 0
B. 12
C. Str(z)
D. 显示错误信息
[填空题]设有如下程序：
Private Sub Form_Click( )
Dim a As Integer，s As Integer
n=8
S=0
DO
S=S+n
n=n-1
Loop While n＞0
Print S
End Sub
以上程序的功能是 【10】 。程序进行后，单击窗体，输出结果为 【11】 。
[填空题]设有如下程序
Private Sub Fom1_Click( )
Dim s 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 pl(x As Integer，ByValy 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，ByValy As Integer)
x=x+10
y=y+20
End Sub
该程序运行后，单击窗体，则在窗体上显示的内容是：a= 【9】 和b= 【10】 。
[填空题]设有如下程序：
Private Sub Command1_Click（ ）
Dim sum As Double, a As Double
sum＝0
n＝1
For i=1 To 5
a＝n*i
n＝n+1
sum＝sum+a
Next i
End Sub
该程序通过For循环来计算一个表达式的值，这个表达式的值是 (15) 。
[填空题]设有如下程序：
Private Sub Form_Click( )
Dim a As Integer，s As Integer
n=8
S=0
DO
S=S+n
n=n-1
Loop While n＞0
Print S
End Sub
以上程序的功能是 【10】 。程序进行后，单击窗体，输出结果为 【11】 。
