更多"有如下程序： Private Sub Form_CHck（ ） "的相关试题:
[填空题]设有如下程序
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_ 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 Click（ ）
Dim n A s Integer
x=0
n=InputBox(“请输入一个整数”)
For i=1 To n
For j=1 To i
x=x+i
Next j
Next i
Print x
End Sub
程序运行后，单击窗体，如果在输入对话框中输入：则在窗体上显示的内容是（）。
A. 13
B. 14
C. 15
D. 16
[填空题]设有如下程序：
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 Book( x As Integer) x=x*2+1 If x＜6 Then Call Book(x) End If x=x * 2 + 1 Print x; End Sub Private Sub Command2_Click( ) Book 2 End Sub
A. 23 47
B. 10 36
C. 22 44
D. 24 50
[单项选择]下面程序运行后，输出结果是( )。 Private Sub mysub(b（ ）As Integer,OptionalByValnAsInteger=2) ForI=1 to 4 b(I)=n*I NextI End Sub Private Sub Commandl_Click（ ） Dima(1 to 4)As Integer，I As Integer Callmysub(a（ ），5) Mysuba（ ） ForI=1 to 4 Print a(i)； Next End Sub
A. 5101520
B. 2468
C. 出错
D. 0000
