更多"执行下列程序后，鼠标单击窗体，输出结果为( )。 Private "的相关试题:
[单项选择]执行下列程序后，鼠标单击窗体，输出结果为______。
Private Sub Form_Click（ ）
Print"Click"：
End Sub
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
Print"Down"
End Sub
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
Print "Up"
End Sub
A. DownUpClick
B. ClickDownUp
C. DownClickUp
D. UpDownClick
[单项选择]执行以下程序后，在窗体上输出的是( )。
Private Sub Command1_Click（ ）
Dim a(20)
For j=1 To 20 Step 2
a(j)=j
Next j
Print a(1)+a(2)+a(3)
End Sub
A. 4
B. 5
C. 6
D. 7
[填空题]某个窗体己编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为
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 Command1_Click（ ）
Ch$="AABCDEFGH"
Print Mid(Right(ch$,6),Len(left(ch$,4)),2)
End Sub
A. CDEFGH
B. ABCD
C. FG
D. AB
[单项选择]单击窗体上Commandl命令按钮时，执行如下事件过程：
Private Sub Commandl＿Click（ ）
a$="Software and hardware"
b$=Right(a$，8)
c$=Mid(a$，l，8)
Msgbox a$，，b$，c$，l
EndSub
则在弹出的信息框的标题栏中显示的信息是( )。
A. software andhardware
B. software
C. hardware
D. l
[单项选择]执行以下程序后输出的是______。
Private Sub Command1_Click（ ）
ch $="VisualBasic"
Print Mid(Right(ch $,6),Len(Left(ch $,4)),2)
End Sub
A. 1Basic
B. Visu
C. si
D. asic
[单项选择]单击窗体上Com mand l命令按钮时，执行如下事件过程：
Private Sub Commandl_C1ick（ ）
a$＝"software and hardware"
b$=Right(a$，8)
C$=Mid(b$，1，8)
Msgbox c$
End sub
则在弹出的信息框的标题栏中显示的信息是( )。
A. software and hard WaJe
B. software
C. hardware
D. and
[单项选择]单击窗体时，下列程序段的执行结果为( )。
Private Sub Form_Crick（ ）
Line(200,200)-(400,400)
Print"+++++++++++++++++++"
Print"*******************"
End Sub
A. 在窗体上画一斜线，从斜线终点处开始打印两行符号
B. 在窗体上画一斜线，从斜线起点处开始打印两行符号
C. 在窗体上画一斜线，从窗体左上角开始打印两行符号
D. 从窗体左上角开始打印两行符号，从符号结束处开始画一斜线
[单项选择]设有如下窗体单击事件过程：
打开窗体运行后，单击窗体，则消息框的输出的结果是______。
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 Cotomand1_Click（ ）
Ch$="Welcome Home!"
a=Len(ch$)
For i= 1 To a
b$ = Mid(ch$， i 1)
If b$ = "m" Then m = m + 1
Next 1
Print m
End Sub
A. 2
B. 3
C. 1
D. 0
[单项选择]运行以下程序后，输出的图形是
Private Sub Command1_Click（ ）
Line(500，500)-(1000，500) Line(750，300)-(750，700)
End Sub
A. 一条折线
B. 两条分离的直线段
C. 一个伞形图形
D. 一个十字形图形
[单项选择]执行以下程序，在窗体上输出( )。
Private Sub Command1_Click（ ）
Dim a(20)
For j=1 To 20 Step 2
a(j)=j
Next j
Print a(1)+a(2)+a(3)
End Sub
A. 4
B. 5
C. 6
D. 7
[单项选择]下列程序运行时，两次单击窗体后，显示的结果是( )。
Private Sub Form_Click（ ）
Dim b As Integer
Static c As Integer
b=b+2
c=c+2
Print "b="；b;"c=";c
End Sub
A. b=2 c=2
B. b=2 c=2
C. b=2 c=2
D. b=2 c=2
[单项选择]当发生窗体的单击事件时，输出的第二行为( )。 Private Sub Form_click（ ） Dim N1 As Integer,N2 As Integer,N3 As Integer N1=1:N2=1 Print N1;N2 Do N3=N1+N2 Print N3； N1=N2:N2=N3 Loop Until N3＞=5 End Sub
A. 1 1 1
B. 2 3 5
C. 2 5 7
D. 2 3 4
[单项选择]程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是
A. MouseDown
B. MouseUp
C. Load
D. Click
