更多"对窗体编写如下事件过程： Private Sub Form_Mous"的相关试题:
[单项选择]对窗体编写如下事件过程： Private Sub Form MouseDown(Button As Integer，Shift As Integer, _ x As Single, Y As Single) If Button=2 Then Print "AAA" End If End Sub Private Sub Form MouseUp (Button As Integer，Shift As Integer，_ x As Single，Y As Single) Print "BBB" End Sub 程序运行后，如果单击鼠标右键，则输出结果为 ______。
A. AAA BBB
B. BBB
C. AAA AAA
D. BBB
[单项选择]对窗体编写如下事件过程：
Private Sub Form _ MouseDown(BuRon As Integer，Shift As Integer, X As Single，
Y As Single)
If Button=2 Then
Print "AAAAA"
End If
End Sub
Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，
Y As Single)
Print "BBBBB"
End Sub
程序运行后，如果单击鼠标右键，则输出结果为 ______。
A. AAAAA
B. BBBBB
C. AAAAA
D. BBBBB
[单项选择]编写如下事件过程：
Private Sub Form MouseDown(Button As Integer，Shift As Integer，X As Single， Y As Single)
If Shift=6 And Button=2 Then
Print "BBBB"
End If
End Sub
程序运行后，为了在窗体上输出“BBBB”，应执行的操作为
A. 同时按下Shift键和鼠标左键
B. 同时按下Ctrl、Alt键和鼠标右键
C. 同时按下Shift键和鼠标右键
D. 同时按下Ctrl、Alt键和鼠标左键
[单项选择]编写如下事件过程：
Private Sub Form_ MouseDown (Button As Integer, _
Shift As Integer, X As Single, Y As Single)
If Shift = 6 And Button = 2 Then
Print "BBBB"
End If
End Sub
程序运行后，为了在窗体上输出BBBB，应执行的操作为______ 。
A. 同时按下Shift 键和鼠标左键
B. 同时按下Ctrl、Alt 键和鼠标右键
C. 同时按下Shift 键和鼠标右键
D. 同时按下Ctrl、Alt 键和鼠标左键
[单项选择]窗体的MouseUp事件过程如下：
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
…
End Sub
关于以上定义，以下叙述中错误的是( )。
A. 根据shift参数，能够确定使用转换键的情况
B. 根据X、Y参数可以确定触发此事件时鼠标的位置
C. Button参数的值是在MouseUp事件发生时，系统自动产生的
D. MouseUp是鼠标向上移动时触发的事件
[单项选择]编写如下事件过程：
Private Sub Form_ MouseDown(Button As Integer，Shift As Integer，X As Single，
Y As Single)
If Shift=6 And Button=2 Then
Print "BBBB"
End If
End Sub
程序运行后，为了在窗体上输出“BBBB”，应执行的操作为______。
A. 同时按下Shift键和鼠标左键
B. 同时按下Shift键和鼠标右键
C. 同时按下Ctrl、Alt键和鼠标左键
D. 同时按下Ctrl、Alt键和鼠标右键
[填空题]为某个窗体编写如下事件，单击窗体，消息框显示的结果为 【13】 。
Private Sub Form_Click( )
Dim k As Integer ,n As Integer ,m As Integer
n=10:m=1:k=1
Do While k＜=n
m=m*2
k=k+1
Loop
MsgBox m
End Sub
[单项选择]把窗体的KeyPreview属性设置为True，然后编写如下事件过程
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim ch As String
ch=Chr(KeyAscii)
KeyAscii=Asc(UCase(ch))
PrintChr(KeyAscii+2)
End Sub
程序运行后，按键盘上的“A”键，则在窗体上显示的内容是
A. A
B. B
C. C
D. D
[填空题]在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Do Until b ＜ 0
a = InputBox( "输入a的值" )
a = Val(A)
b = InputBox( "输入b的值" )
b =VM(B)
a=a+b
Loop
Print a
End Sub
程序运行后，依次输入5,4,3,2,1,0,-1,-2,则输出结果是 【15】 。
[填空题]在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl Click（ ）
Do Until b＜0
a=InputBox("输入a的值")
a=Val(a)
b=InputBox("输入b的值")
b=Val(b)
a=a +b
Loop
Print a
End Sub
程序运行后，依次输入5，4，3，2，1，0，-1，-2，则输出结果是 【14】 。
[单项选择]把窗体的KeyPreview属性设置为True，然后编写如下事件过程：
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim ch As String
ch=Chr(KeyAscii)
KeyAscii=Ase(UCase(ch))
Print Chr(KeyAscii+2)
End Sub
程序运行后，按键盘上的“A”键，则在窗体上显示的内容是( )
A. A
B. B
C. C
D. D
[单项选择]在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl Click（ ）
Dim a（ ）
a＝Array(1，3，5，7)
s=O
For i＝1 TO 3
S=S*10十a(i)
Next i
PrInt S
End Sub
程序运行后，输出结果为( )。
A. 135
B. 357
C. 531
D. 753
[填空题]在窗体上添加一个命令按钮，编写如下事件过程：
Private Sub Command1_Click（ ）
sum=0
For i=3 To 7
sum=i+2
Next i
MsgBox sum+i
End Sub
运行窗体后，单击命令按钮，消息框的输出结果是______。
[填空题]在窗体上添加一个命令按钮Command1，然后编写如下事件过程。
Private Sub Command1_Click（ ）
Dim b，k
For k=1 To 6
b=23+k
Next k
MsgBox k+b
End Sub
打开窗体后，单击命令按钮，消息框数据的结果是______。
