更多"假定有如下事件过程: Private 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
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 键和鼠标左键
[单项选择]编写如下事件过程:
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键和鼠标右键
[单项选择]对窗体编写如下事件过程:
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
[单项选择]窗体的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 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
[单项选择]假定有如下的窗体事件过程:
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
[单项选择]假定有如下的Sub过程:Sub Sub1 (x As Single, y As Single) t=x x = t/y y = t Mod yEnd Sub 在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_ Click( ) Dim a As Single Dim b As Single a = 5 b = 4 Sub1 a, b Print a; b End Sub 程序运行后,单击命令按钮,输出结果为______。
A. 5 4
B. 1 1
C. 1.2 5.4
D. 1.25 1
[单项选择]假定有如下的Sub过程:
Sub sfml(x As Single,y As Single)
t=x
x=t/y
y=t Mod y
End Sub
在窗体上添加一个命令按钮(名为Command1),然后编写如下事件过程:
Private Sub Commandd1_Click( )
Dim a as single,b as single
a=5:h=4
sflln a,b
MsgBox a & chr10.+chr13.& b
End Sub
打开窗体运行后,单击命令按钮,消息框的两行输出内容分别为
A. 1和1
B. 1.25和1
C. 1.25和4
D. 5和4
[单项选择]假定有如下的Sub过程:
Sub sfun(x As Single,y As Single)
t=x
x=t/y
y=t Mod y
End Sub
在窗体上添加一个命令按钮(名为Command1),然后编写如下事件过程:
Private Sub Command1_Click( )
Dim a As single
Dim b As single
a=5
b=4
sfun a,b
MsgBox a & chr(10)+chr(13)&b
End Sub
打开窗体运行后,单击命令按钮,消息框的两行输出内容分别为( )。
A. 1和1
B. 1.5和1
C. 1.25和4
D. 5和4
[单项选择]假定有如下的Sub过程: Sub Func(x As Single, y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) Dim a As Single Dim b As Single a=6 b=5 Func(a, b) Print a, b End Sub 程序运行后,单击命令按钮,输出结果为 ______。
A. 6 5
B. 1 1
C. 1.2 5
D. 1.2 1