更多"有如下程序： Private Sub Form_Click( ) "的相关试题:
[单项选择]有如下程序：
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 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 k As Integer，m As Integer Dim op As Integer k=4：m=1 op：PPC(k，m)：Print op； op：PPC(k，m)：Print opEnd SubPrivate Function，PPC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0：i=2 i=i+m+1 m=i+a+b PPC=mEnd Function程序运行后，输出的结果为
A. 4 6
B. 6 6
C. 8 8
D. 10 12
[单项选择]有如下的程序：Private Sub Command1_Click( ) Dim k As Integer，m As Integer Dim P As Integer k=4：m=1 P=Pid(k，m) ：Print P； P=Pid(k，m) ：Print PEnd SubPrivate Function Pid(a As Integer，b As Integer) Static m As Integer，i As Integer m=5：i=2 i=i + m + 1 m=i + a + b Pid=m/2End Function单击命令按钮后，输出结果为
A. 2 2
B. 4 4
C. 5 5
D. 6 6
[单项选择]阅读程序：
Private Sub Form Click( )
Dim num As Integer, digit As Integer
num=InputBox("输入数据")
Do While num＜＞0
digit=num Mod 10
num=num/10
Print digit；
Loop
End Sub
程序运行后，如果从键盘上输入12345，则输出结果为______。
A. 1 3 7 5 9
B. 5 4 3 2 1
C. 2 4 6 8 10
D. 1 2 3 4 5
[单项选择]阅读程序：
Private Sub Form_Click(
)
Dim i As Integer， sum As Integer
For i = 2 To 10
If i Mod 2 ＜＞ 0 Then
Print i;
Else
sum = sum + i
End If
Next i
Print sum
End Sub
程序运行后，单击窗体，在窗体上的输出结果是________。
A. 3 5 7 9 30
B. 1 3 5 7 9
C. 2 4 6 8 20
D. 11 15 17 19 20
[单项选择]有如下事件过程：
Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer)
If (Button And 3) =3 Then
Print "OK"
End If
End Sub
程序运行后，为了在窗体上输出“OK”，应当按下的鼠标键是
Ａ) 左键 Ｂ) 右键
Ｃ) 同时按下左键和右键 Ｄ) 按什么键都不显示
[单项选择]有如下程序：
Private Sub Commandl_Click（ ）
Dim a As Integer
a=2
For i=1 To 3
Print Gad (a)
Next i
End Sub
Function Gad (a As Integer)
b=0
Static c
b=b + 1
c= c + 1
Gad= a + b + C
End Function
运行上面的程序后，单击命令按钮，输出结果为( )。
[单项选择]有如下程序：
Private Sub Commandl_Click( )
Dim i As Integer
For i=1 To 2
DS
Next i
End Sub
Sub DS( )
Dim x As Integer，m As String
Static y，n
X=X + 1
y=y + 1
m=m &"*”：n=n&"#"
Print x，y，m，n
End Sub
程序运行后，输出的结果是( )。
A. * p表示的是指针变量p的地址
B. p表示的是变量a的地址，而不是变量a的值
C. * p表示的是指针变量p的值
D. * p只能用来说明p是一个指针变量
[填空题]设有如下程序
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=______。
