更多"假定有如下的窗体事件过程: Private Sub Form_Cli"的相关试题:
[单项选择]假定有如下的窗体事件过程:
Private Sub Form_Click( )
a$="Microsoft Visual 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$="Microsoft Visual Basic"
b$=Right(a$,5)
c$=Mid(a$,1,9)
Msg Box aS,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_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键和鼠标右键
[单项选择]编写如下窗体事件过程:
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 Click( )
Dim x As Integer, n As Integer
x=1
n=0
Do While x<28
x=x*3
n=n+1
Loop
Print x, n
End Sub
程序运行后,单击窗体,输出结果是______。
A. 81 4
B. 56 3
C. 28 1
D. 243 5
[单项选择]设有如下窗体单击事件过程:
Private Sub Form_Click( )
a=1
For i=1 To 3
Select Case i
Case 1
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( )
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 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( )
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
打开窗体运行后,单击窗体,则消息框的输出结果是______。
[填空题]设有如下窗体单击事件过程:
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
打开窗体运行后,单击窗体,则消息框的输出结果是______。
[单项选择]设有如下窗体单击事件过程:
Private Sub Fom_Click( )
a=1
For i=1 To 3
Select Case i
Case 1,3
a=a+1
Case2,4
a=a+2
End Select
Nexti
MsgBoxa
EndSub
打开窗体运行后,单击窗体,则消息框的输出的结果是
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+l
Case 2,4
a=a+2
End Select
Next i
MsgBox a
End Sub
打开窗体运行后,单击窗体,则消息框的输出的结果是( )。
A. 3
B. 4
C. 5
D. 6
[单项选择]对窗体编写如下事件过程:
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
程序运行之后按回车键,输出结果为( )。