更多"窗体的MouseUp事件过程如下: Private Sub Form"的相关试题:
[单项选择]编写如下窗体事件过程:
Priate 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键和鼠标右键
[单项选择]对窗体编写如下事件过程: Private Sub Form_ MouseDown(Button 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 BBBBB
B. BBBBB
C. AAAAA
D. BBBBB AAAAA
[单项选择]对窗体编写如下事件过程:
Private Sub Form_MouseDown(Button 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. BBBBBAAAAA
[单项选择]对窗体编写如下事件过程: Private Sub Form_ Mouse Down(Button 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 BBBBB
B. BBBBB AAAAA
C. AAAAA
D. BBBBB
[单项选择]假定有如下的窗体事件过程:
Private Sub Command1_Click( )
a$="Microsoft Visual Basic"
b$=Riqht(a$, 5)
c$=Mid(a$, 1, 9)
MsgBox a$, 34, b$, c$, 5
End Sub
程序运行后,单击窗体,则在弹出的信息框的标题栏中显示的信息是______。
A. Microsoft Visual
B. Microsoft
C. Basic
D. 5
[单项选择]假定有如下的窗体事件过程:
private Sub Form_Click( )
a$=“MicrosoftVisual Basic"
b$=Right(a$,5)
c$=Mid(a$,1,9)
MsgBox a$,34,b$,c$,5
End Sub
程序运行后,单击窗体,则在弹出的信息框的标题栏中显示的信息是( )。
A. Microsoft Visual
B. Microsoft
C. Basic
D. 5
[单项选择]设有窗体的Form_MouseMove事件过程如下:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
K(Button And 3) = 3 Then
Print "检查按键"
End If
End Sub
关于上述过程,以下叙述中正确的是( )。
A. 按下鼠标左键时,在窗体上显示“检查按键”
B. 按下鼠标右键时,在窗体上显示“检查按键”
C. 同时按下鼠标左、右键时,在窗体上显示“检查按键”
D. 不论做何种操作,窗体上都不会显示
[单项选择]对窗体编写如下事件过程:
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
程序运行之后按回车键,输出结果为( )。