更多"编写如下窗体事件过程： Priate Sub Form_MouseD"的相关试题:
[单项选择]编写如下窗体事件过程：
Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)
If Shift=6 And Button=2 Then
MsgBox"Hello"
End If
End Sub
程序运行后，为了在窗体上消息框中输出“Hello”信息，在窗体上应执行的操作是（）。
A. 同时按下Shift键和鼠标左键
B. 同时按下Shift键和鼠标右键
C. 同时按下Ctrl、Alt键和鼠标左键
D. 同时按下Ctrl、Alt键和鼠标右键
[单项选择]对窗体编写如下事件过程：
Option Base 1
Private Sub Form_KeyPress (KeyAScii AS Integer)
arr=Array(12，15，18，20，24)
m1=arr(1)
m2=1
If fKeyAscii=12 Then
For i=2 To 5
If arr(i)＞m1 Then
m1=arr(i)
m2=i
End If
Next i
End If
Print m1
Print m2
End Sub
程序运行之后按回车键，输出结果为( )。
[单项选择]设在窗体上有个文本框，然后编写如下的事件过程：
Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)
Const Alt=4
Const Key_F2=&H71
altdown%=(Shift And Alt)＞0
f2down%=(KeyCode=Key_F2)
If altdown% And f2down% Then
Text1.Text="BBBBB"
End If
End Sub
上述程序运行后，如果按“Shift+F2”组合键，则在文本框中显示的是
A. Alt+F2
B. BBBBB
C. 随机出几个数
D. 文本框内容无变化
[单项选择]设在窗体上有一个文本框，然后编写如下的事件过程：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Intcger)
Const Alt=4
Const Key_f2=&H71
altdown%=(Shift And Alt) ＞ 0
f2down% And f2down% Then
If altdown% And f2down% Then
Text ="abl"
End If
Ead Sub
程序运行后，清除文本框中原有内容，如果按Shift+F2键，则在文本框中显示的是( )。
A. add()
B. requestFocus()
C. repaint()
D. paint()
[单项选择]设在窗体上有个文本框，然后编写如下的事件过程：
Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)
Const Alt=4
Const Key_F2=&H71
altdown%=(Shift And Alt)>0
f2down%=(KeyCode=Key_F2)
If altdown%And t2down% Then
Text1 Text="BBBBB"
End If
End Sub
上述程序运行后，如果按[Shift+F2]，则在文本框中显示得是
A. Alt+F2
B. BBBBB
C. 随机出几个数
D. 文本框平均内容无变化
[单项选择]设在窗体上有个文本框，然后编写如下的事件过程：
Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)
Const Alt=4
Const Key_F2=&H71
altdown%=(Shift And Alt)>0
f2down%=(KeyCode=Key_F2)
If altdown% And f2down% Then
Text1．Text="BBBBB"
End If
End Sub
上述程序运行后，如果按【Shift+F2】，则在文本框中显示的是（ ）。
A. ScrollBars
B. MultiLine
C. SelText
D. SelLength
[单项选择]设在窗体上有一个文本框，然后编写如下的事件过程： Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Intcger) Const Alt=4 Const Key_f2=&H71 altdown%=(Shift And Alt) ＞ 0 f2down% And f2down% Then If altdown% And f2down% Then Text ="abl" End If Ead Sub 程序运行后，清除文本框中原有内容，如果按Shift+F2键，则在文本框中显示的是
A. Alt+F2
B. abl
C. 随机出儿个数
D. 不发生变化
