题目内容
（请给出正确答案）
有如下事件过程。
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
If (Button And 3)=3 Then
Print "OK"
End If
End Sub
程序运行后,为了在窗体上输出"OK",应当按下的鼠标键是
A．左键
B．右键
C．同时按下左键和右键
D．按什么都不显示
如果结果不匹配，请 联系老师 获取答案
更多“有如下事件过程。 Private Sub Form_KeyD…”相关的问题
有如下事件过程：
Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer)
If (Button And 3) =3 Then
Print "OK"
End If
End Sub
程序运行后，为了在窗体上输出“OK”，应当按下的鼠标键是
A．左键
B．右键
C．同时按下左键和右键
D．按什么键都不显示
窗体有命令按钮Commandl和文本框Textl，对应的事件代码如下：
Private Sub Commandl_Click()
For i=1 To 4
x=3
For j=l to 3
For k=1 To 2
x=x+3
Next k
Next j
Next i
Textl．Value=Str(x)
End Sub
运行以上事件过程，文本框中的输出是()。
A．6
B．12
C．18
D．21
有如下事件过程： Private Sub Command1_Click() b=10 Do Until b=-1 a=InputBox("请输入a的值") a=Val(A)b=InputBox("请输入b的值") b=Val(B)a=a * b Loop Print aEnd Sub程序运行后，依次输人数值30，20，10，-1，输出结果为
A．6000
B．-10
C．200
D．-6000
有如下事件过程：
Sub ABD（x%, y%, z%）
z%=x% + y%
End Sub
Private Sub Command1_Click（）
a%=30: b%=40
Call ABD（a%, b%, c%）
Print c%
End Sub
运行上面的程序，单击命令按钮，输出结果为（）。
A．70
B．70.0
C．7.0E+1
D．显示错误信息
有如下Sub过程：
Sub ind(a As Integer)
Static x As Integer
x= x + a
Print x：
End Sub
以下是调用它的事件过程，程序运行后，单击命令按纽Command1三次，输出结果为【 】。
Private Sub Command1_Click()
Ind 2
End Sub
有如下事件过程，单击命令按钮扣，输出结果是 Private Sub Command1 Click() Dim b% (1 To4) ,j%, t# For j=1 To 4 b(j) =j Next j t=Tax(b() ) Print "t="; t, End Sub Function Tax (a() As Integer) Dim t#, i% t=1 For i=2 To UBound (A)t=t * a(i) Next i Tax=t End Function
A．t=18
B．t=24
C．t=30
D．t=32
有过程如下：Sub fact (m As Integer, total As Long) Dim i As Integer total = 1 for i = 1 To m total = total*i Next iEnd Sub调用它的事件过程如下：Private Sub Command1_ Click () Dim tot As Long Dim a As Integer a = Val InputBox (“请输入数据”)) Call fact (a, tot) Print totEnd Sub则输入数据5，运行结果为 ______。
A．100
B．120
C．200
D．50
有如下SUB过程:
Sub s(x As Single,y As Single)
t=x
x=t / y
y=t Mod y
End Sub
在窗体上添加一个命令按钮,然后编写如下事件过程:
Private Sub Form_Click()
Dim a As Single
Dim b As Single
a=5
b=4
s a,b
Print a,b
End Sub
则程序运行后,单击命令按钮,输出的结果为【 】 。
有如下事件过程： Function UNC (ByVal x As Integer，ByVal y As Integer) As Integer Do While y＜＞0 sic=x/y x=y y=sic Loop UNC=x End Function 以下是该函数的调用过程，该程序的运行结果是 PriVate Sub COmmand1_Click() Dim a As Integer Dim b As Integer a=12 b=2 x=UNC (a，B)Print x End Sub
A．0
B．6
C．2
D．80
在窗体上画一个命令按钮(名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() Dim b As Integer b=b+1 End Sub 运行程序，三次单击命令按钮后，变量b的值是______。
A．0
B．1
C．2
D．3
