更多"有如下程序:: Private Sub Form Click（ ）"的相关试题:
[填空题]设有如下程序
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 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 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 s As Integer, p As Integer
p=1
For i=1 To4
For j=1 To i
s=s+j
Next j
P=P * s
Next i
Print p
End Sub
程序运行后，单击窗体，则输出结果是( )。
A. 90
B. 180
C. 400
D. 800
[单项选择]有如下程序：
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
Print Sum
End Sub
程序运行后，单击窗体，输出结果为
A. 12
B. 30
C. 24
D. 18
[单项选择]有如下程序： 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 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 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
Print Sum
End Sub
程序运行后，单击窗体，输出结果为
A. 12
B. 30
C. 24
D. 18
[单项选择]有如下程序：
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
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
[单项选择]
设有如下程序
Option Base 1
Private Sub Form_Click( )
Dim a(5) As String , i As Integer
For i=1 To 5
a(i)=Chr(Asc(“A”)+i)
Call f(a,i)
Next i
End Sub
Sub f(ta（ ） As String , n As Integer)
Dim i As Integer
For i=1 To
Print ta(i);
Next i
End Sub
对上述程序，以下叙述中正确的是（）。
A. 程序有错，因为在过程f的定义中数组参数格式不正确
B. 程序可正常运行，输出内容的第一行是一个字母“A”
C. 程序可正常运行，输出内容的第一行是一个字母“B”
D. 程序可正常运行，输出内容的第一行是数字65
[填空题]设有如下程序：
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
以上程序的功能是 (10) 。程序运行后，单击窗体，输出结果是 (11) 。
