更多"编写如下事件过程： Private Sub Form-MouseDo"的相关试题:
[单项选择]假定有如下事件过程：
Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Sinsle，Y As Single)
If Button=2 then
PopupMenu popForm
End If
End Sub
则以下描述中错误的是
A. 该过程的功能是弹出一个菜单
B. popForm是在菜单编辑器中定义的弹出式菜单的名称
C. 参数X、Y指明鼠标的当前位置
D. Button=2表示按下的是鼠标左键
[单项选择]设有如下事件过程： Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single，Y As Single) If Button=2 Then PopupMenu popMenu EndIf End Sub 则以下描述中错误的是( )。
A. 该过程的功能是弹出一个菜单
B. popMenu是在菜单编辑器中定义的弹出式菜单的名称
C. 参数X、Y指明鼠标的当前位置
D. Button=2表示按下的是鼠标左键
[单项选择]假定有如下事件过程：
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button=2 Then
PopupMenu popForm
End If
End Sub
则以下描述中错误的是( )。
A. 该过程的功能是弹出一个菜单
B. PopForm是在菜单编辑器中定义的弹出式菜单的名称
C. 参数X、Y指明鼠标的当前位置
D. Button=2表示按下的是鼠标左键
[单项选择]编写如下事件过程：
Private Sub Form_MouseMove(ButtonAsInteger,ShiftAsInteger，X As Single,YAsSingle) Cls
If(Button Andl)ThenPrint"你好"
End Sub
程序运行后，为了在窗体上显示“你好”，应在窗体上执行以下( )操作。
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_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 Command1_Click( )
a=Val(1nputBox(“请输入一个整数”))
b=Val(1nputBox(“请输入一个整数”))
Print a+b
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入12和34，输出结果为 【10】
[填空题]在窗体上画一个名称为Command1的命令按钮，编写如下事件过程
Private Sub Command1_Click( )
Dim a As String
a= 【11】
For i=1 To 5
Print Space(6-i)；Mid $(a，6-i，2*i-1)
Next i
End Sub
程序运行后，单击命令按钮，要求窗体上显示的输出结果为
5
456
34567
2345678
123456789
请填空。
[单项选择]在窗体上画一个命令按钮，并编写如下事件过程：
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（ ） x=0 Do Until x=-1 a=InputDox("请输入a的值") a=Val(A) b=InputBox("请输入b的值") b=Val(B) x=InputBox("请输入x的值") x=Val(x) a=a+b+x Loop Print a End sub 程序运行后，单击命令按钮，依次在输入对话框中输入10、8、9、2、11、-1，则输出结果为 ______。
A. 15
B. 14
C. 13
D. 12
[单项选择]在窗体上画一个命令按钮，名称为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
[单项选择]在窗体上绘制一个文本框，然后编写如下事件过程：
Private Sub Form_Click（ ）
x=InputBox("请输入一个整数")
Print x+Text1.Text
End Sub
程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为( )。
A. 123
B. 456
C. 579
D. 123456
[单项选择]在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) X=0 n=Input Box("") For i=1 To n For j=1 To i K=X+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是
A. 3
B. 4
C. 5
D. 6
[单项选择]在窗体上画一个命令按钮(名称为Command1)，然后编写如下事件过程：
Private Sub Command1_Click（ ）
Dim b As Integer
b=b+1
End Sub
运行程序，三次单击命令按钮后，变量b的值是 ______。
A. 0
B. 1
C. 2
D. 3
