更多"假定有如下的窗体事件过程： private Sub Form_Cli"的相关试题:
[单项选择]假定有如下的窗体事件过程：
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 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（ ）
x＝1
For i＝1 To 3
Select Case i
Case 1, 3
x＝x+3
Case 2, 4
x＝x-2
End Select
Next i
MsgBox x
End Sub
打开窗体运行后，单击窗体，则消息框的输出的结果是 (13) 。
[单项选择]假定有如下事件过程：
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 Click( )
a＝1
For i＝1 To 3
Select Case i
Case 1,3
a＝a+1
Case 2,4
a＝a+2
End Select
Next i
MsgBox a
End Sub
打开窗体运行后，单击窗体，则消息框的输出结果是______。
A. 3
B. 4
C. 5
D. 6
[单项选择]设有如下窗体单击事件过程：
Private Sub Form_Click（ ）
a=1
For i=1 To 3
Select Case i
Case 1，3
a=a+1
Case 2，4
a=a+2
End Select
Next i
MsgBox a
End Sub
打开窗体运行后，单击窗体，则消息框的输出的结果是( )。
A. 3
B. 4
C. 5
D. 6
[单项选择]
设有如下窗体单击事件过程：
Private Sub Form _Click（ ）
a＝1
For i＝1 To 3
Select Case i
Case 1,3
a＝a+1
Case 2, 4
a＝a+2
End Select
Next i
MsgBox a
End Sub
打开窗体运行后，单击窗体，则消息框的输出的结果是（）。
A. 3
B. 4
C. 5
D. 6
[单项选择]假定有如下的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
[单项选择]对窗体编写如下事件过程：
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 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 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
[单项选择]假定有如下的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.25和1
C. 1.25和4
D. 5和4
