更多"设有如下程序：
Private Sub Form_Click（ ）"的相关试题:
[填空题]设有如下程序：
Private Sub Form_Click（ ）
Dim a As Integer,b As Intger
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= 【14】 和b= 【15】 。
[填空题]设有如下程序
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 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 Command1_Click（ ） Dim sum As Double，x As Double sum=0 n=0 Fori=1 To 5 x=n/i n=n+1 sum=sum+x Nexti End Sub 该程序通过For循环来计算一个表达式的值，这个表达式是( )。
A. 1+1/2+2/3+3/4+4/5
B. 1+1/2+1/3+1/4+1/5
C. 1/2+2/3+3/4+4/5
D. 1/2+1/3+1/4+1/5
[单项选择]设有如下程序：
Private Sub Command1_Click( )
Dim sum As Double，x As Double
sum＝0
n＝0
For i＝1 To 5
x＝n/i
n＝n+1
sum=sum+x
Next
End Sub
该程序通过For循环计算一个表达式的值，这个表达式是
A. 1+1/2+2/3+3/4+4/5
B. 1+1/2+2/3＋3/4
C. 1/2+2/3+3/4+4/5
D. 1+1/2+1/3+1/4+1/5
[单项选择]设有如下程序：
Private Sub Command1_Click（ ）
Dim sum As Double, x As Double
sum=0
n=0
For i=1 To 5
x=n/i
n=n+1
sum=sum+x
Next
End Sub
该程序通过For循环计算—个表达式的值，这个表达式是 ______。
A. 1+1/2+2/3+3/4+4/5
B. 1+1/2+2/3+3/4
C. 1/2+2/3+3/4+4/5
D. 1+1/2+1/3+1/4+1/5
[填空题]设有如下程序：
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的和。程序运行后，单击窗体，输出结果为______。
[填空题]设有如下程序：
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的和。程序运行后，单击窗体，输出结果为______。
[填空题]设有如下程序：
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的和。程序运行后，单击窗体，输出结果为 【12】 。
