更多"为某个窗体编写如下事件,单击窗体,消息框显示的结果为 。 Pr"的相关试题:
[填空题]为某个窗体编写如下事件,单击窗体,消息框显示的结果为 【13】 。
Private Sub Form_Click( )
Dim k As Integer ,n As Integer ,m As Integer
n=10:m=1:k=1
Do While k<=n
m=m*2
k=k+1
Loop
MsgBox m
End Sub
[填空题]为某个窗体编写如下事件,单击窗体,消息框显示的结果为 【13】 。
Private Sub Form_Click( )
Dim k As Integer ,n As Integer ,m As Integer
n=10:m=1:k=1
Do While k<=n
m=m*2
k=k+1
Loop
MsgBox m
End Sub
[填空题]某个窗体已编写以下事件过程。打开窗体运行后,单击窗体,消息框的输出结果为
Private Sub Form_Click( )
a=1
i=1
Do Until i>10
a=a+2
i=i+3
Loop
MsgBox a
End Sub
[填空题]某个窗体己编写以下事件过程。打开窗体运行后,单击窗体,消息框的输出结果为
Private Sub Form_Click( )
a=1
i=1
Do Until i>10
a=a+2
i=i+3
Loop
MsgBox a
End Sub
[单项选择]对窗体编写如下事件过程: Private Sub Form MouseDown(Button As Integer,Shift As Integer, _ x As Single, Y As Single) If Button=2 Then Print "AAA" End If End Sub Private Sub Form MouseUp (Button As Integer,Shift As Integer,_ x As Single,Y As Single) Print "BBB" End Sub 程序运行后,如果单击鼠标右键,则输出结果为 ______。
A. AAA BBB
B. BBB
C. AAA AAA
D. BBB
[单项选择]对窗体编写如下事件过程:
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(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. BBBBB