更多"编写如下事件过程： Private Sub Form KeyDown"的相关试题:
[单项选择]编写了如下事件过程：
Private Sub Form_KeyDown(KeyCode As Integer，Shift As lnteger)
If(Button And 3)=3 Then
Print“AAAA”
End lf
End Sub
程序运行后，为了窗体上输出“AAAA”，应按下的鼠标键是
A. 左
B. 右
C. 同时按下左和右
D. 按鼠标键没有反应
[单项选择]编写了如下事件过程：
Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer)
If(Button And 3)=3 Then
Print "AAAA"
End If
End Sub
程序运行后，为了在窗体上输出"AAAA"，应按下的鼠标键是
A. 左
B. 右
C. 同时按下左和右
D. 按鼠标键没有反应
[单项选择]编写了如下事件过程：
Private Sub Form_MouseDown(KeyCode As Integer,Shift As Integer)
If (Button And 3)=3 Then
Print"AAAA"
End If
End Sub
程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键是
A. 左
B. 右
C. 同时按下左和右
D. 按什么键都不显示
[单项选择]编写如下事件过程：
Private Sub Form_MouseMove(ButtonAsInteger,ShiftAsInteger，X As Single,YAsSingle) Cls
If(Button Andl)ThenPrint"你好"
End Sub
程序运行后，为了在窗体上显示“你好”，应在窗体上执行以下( )操作。
A. 只能按下左按键并拖动
B. 只能按下右按键并拖动
C. 只能按下左按键
D. 只能按下右按键
[单项选择]编写如下事件过程：
Private Sub Form-MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Shift=6 And Button=2 Then
Print"Hello"
End If
End Sub
程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下( )操作。
A. 同时按下Shift键和鼠标左键
B. 同时按下Shift键和鼠标右键
C. 同时按下Ctrl、Alt键和鼠标左键
D. 同时按下Ctrl、Alt键和鼠标右键
[单项选择]编写如下事件过程：
Private Sub Form_Click（ ）
k=2
Ifk＞=1 Then A=3
Ifk＞=2 Then A=2
Ifk＞=3 Then A=1
Print A
End Sub
程序运行后，单击窗体，输出的结果为 ______。
A. 1
B. 2
C. 3
D. 出错
[单项选择]编写如下程序：
Private Sub Form Click（ ）
a$=: "4321": b$="abcd"
For 3=1 To 4
Print Mid$(a$，5-j，1)+Nid$(b$, j, 1)；
Next j
Print
End Sub
程序运行后，单击窗体，其输出结果为 ______。
A. alb2c3d4
B. b4c3d2el
C. eld2c3b4
D. la2b3c4d
[单项选择]编写如下程序：
Private Sub Form_Click（ ）
a$="54321":b$="abcde"
For j=1 To 5
Print Mid$(a$，6-j，1)+Mid$(b$，j，1)；
Next j
Print
End Sub
程序运行后，单击窗体，其输出结果为 ______。
A. a1b2c3d45e
B. a5b4c3d2e1
C. e1d2c3b4a5
D. 1a2b3c4d5e
[单项选择]在窗体上绘制一个文本框，然后编写如下事件过程：
Private Sub Form_Click（ ）
x=InputBox("请输入一个整数")
Print x+Text1.Text
End Sub
程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为( )。
A. 123
B. 456
C. 579
D. 123456
[单项选择]
The connection between two networks to form an internet is handled by a machine known as a（）。
A. bridge
B. client
C. router
D. switch
[单项选择]在窗体上画一个命令按钮，然后编写如下代码：
Private Sub Command1_Click（ ）
a&=InputBox("请输入第一个数")
b&=InputBox("请输入第二个数")
Print b&+a&
End Sub
程序运行后，单击命令按钮，在两个输入对话框中先后输入12345和54321，程序的输出结果是
A. 66666
B. 54321 12345
C. 1234554321
D. 出错
[单项选择]在窗体中添加一个命令按钮，名称为Commandl，然后编写如下程序：
Private Sub Command1_Click（ ）
Dim a As Integer，b As String，C As Integer
a = 1234 : b = Str(
[单项选择]在窗体上画一个命令按钮，并编写如下事件过程：
Private Sub Command1_Click（ ）
For i=5 To 1 Step-0.8
Print Int(i);
Next i
End Sub
运行程序，单击命令按钮，窗体上显示的内容为
A. 5 4 3 2 1 1
B. 5 4 3 2 1
C. 4 3 2 1 1
D. 4 4 3 2 1 1
[单项选择]在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_ Click ( )
x = InputBox("Enter the First integer")
y = InputBox("Enter the Second integer")
Print y +x
End Sub
程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，则输出结果是 ______。
A. 579
B. 123
C. 456
D. 123456
[单项选择]在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（ ）
MsgBox Str(123+321)
End Sub
程序运行后，单击命令按钮，则在信息框中显示的提示信息为
A. 123+321
B. 字符串"444"
C. 数值444
D. 空白
[单项选择]在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程：
Private Sub Commandl_Click（ ）
Dim a（ ）
a＝Array(“机床”,”车床”,”钻床”,”轴承”)
Print a(2)
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
A. 机床
B. 车床
C. 钻床
D. 轴承
[单项选择]在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程：
Private Sub Command1 Click（ ）
Move 500，500
End Sub
程序运行后，单击命令按钮，执行的操作为
A. 命令按钮移动到距窗体左边界、上边界各500的位置
B. 窗体移动到距屏幕左边界、上边界各500的位置
C. 命令按钮向左、上方向各移动500
D. 窗体向左、上方向各移动500
