更多"有如下事件过程： Private Sub Command1_Clic"的相关试题:
[单项选择]有如下事件过程：
Private Sub Command1_Click( )
Dim m AS Integer，n AS Integer
m=2：n=1
Print "m="；m；"n="；n
Call TOD(m，n)
Print "m="；m；"n="；n
End Sub
Sub TOD(x，y)
x=x^2
y=y^3
End Sub
程序运行后，输出的结果为( )。
[单项选择]
有如下事件过程：
Private Sub Form Click（）
Dim n A s Integer
x=0
n=InputBox（"请输入一个整数”）
For i=1 Ton
For j=1 To i
x=x＋I
Next j
Next i
Print x
End Sub
程序运行后，单击窗体，女口果在输入对话框中输入：，则在窗体上显示的内容是（）
A. 13
B. 14
C. 15
D. 16
[单项选择]假定有如下事件过程： 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 Commaild1_Click( ) Dim i As Integer For i =1 To 2 DC Next i End Sub Sub DC( ) Dim x As Integer，m As String Static y，n x=x + 1 y=y + 1 m=m&"*"：n=n &"#" Print x，y，m，n End Sub 程序运行后，输出的结果是
A. 1 1 * # 1 1 * #
B. 1 1 * # 1 2 * #
C. 1 1 * # 1 1 * ##
D. 1 1 * # 1 2 * ##
[单项选择]假定有如下事件过程： Private Sub Form_Cilck（ ） 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_MouseMove(ButtonAsInteger,ShiftAsInteger，X As Single,YAsSingle) Cls If(Button Andl)ThenPrint"你好" End Sub 程序运行后，为了在窗体上显示“你好”，应在窗体上执行以下( )操作。
A. 只能按下左按键并拖动
B. 只能按下右按键并拖动
C. 只能按下左按键
D. 只能按下右按键
[单项选择]编写如下事件过程： Private Sub Form KeyDown(KeyCode As Integer，Shift As Integer) If(Button And 3)=3 Then Print "AAAA" End If End Sub 程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为
A. 左
B. 右
C. 同时按下左、右
D. 按什么键都不显示
[单项选择]编写如下事件过程：
Private Sub Form_MouseDown(Button AS Integer，Shift AS Integer，_
X As Single，Y As Single)
If Shift=6 And Button=2 Then
Print，"PC"
End If
End Sub
程序运行后，为了在窗体上输出“PC”，应执行的操作为( )。
A. 同时按下Shift键和鼠标左键
B. 同时按下Ctrl，Alt键和鼠标右键
C. 同时按下Shift键和鼠标右键
D. 同时按下Ctrl，Alt键和鼠标左键
