更多"设有如下窗体单击事件过程： Private Sub Form _Cli"的相关试题:
[单项选择]设有如下窗体单击事件过程：
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（ ） 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
[单项选择]设有如下程序：
Option Base 0
Private Sub Form_Click（ ）
Dim a
Dimi As Integer
a=Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
For i=0 To 3
Print a(5-i);
Next
End Sub
程序运行后，单击窗体，则在窗体上显示的是______。
A. 4 3 2 1
B. 5 4 3 2
C. 6 5 4 3
D. 7 6 5 4
[单项选择]设有如下程序：
Option Base （ ）
Private Sub Form_Click（ ）
Dim a
Dim i As Integer
a=Array(1，2，3，4，5，6，7，8，9)
For i=0 To 3
Print a(5-i);
Next
End Sub
程序运行后，单击窗体，则在窗体上显示的是( )。
A. 4 3 2 1
B. 5 4 3 2
C. 6 5 4 3
D. 7 6 5 4
[单项选择]执行下列程序后，鼠标单击窗体，输出结果为( )。
Private Sub Form_Click（ ）
Print "Click";
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift
A. End Sub DownUpClick
B. ClickDownUp
C. DownClickUp
D. UpDownClick
[单项选择]设有如下程序： 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 Print A End Sub 程序运行后，单击窗体，则在窗体上显示的内容是
A. 6
B. 5
C. 4
D. 3
[单项选择]假定有如下的窗体事件过程：
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（ ）
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（ ）
a$="Microsoft Visual Basic"
b$=Right(a$，5)
c$=Mid(a$，1，9)
MsgBoxa$，34，b$，c$，5
End Sub
程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是( )。
A. Microsoft Visual
B. Microsoft
C. Basic
D. 5
[单项选择]在窗体中有一个文本框Text1，编写事件代码如下。
Private Sub Form_Click（ ）
X=val(Inputbox("输入x的值"))
Y=1
If X＜＞0 Then Y=2
Text1.Value=Y
End Sub
打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是( )。
A. 1
B. 2
C. 3
D. 4
[单项选择]在窗体中有一个文本框Test1，编写事件代码如下：
Private Sub Form_Click（ ）
X=Val(InputBox("输入X的值"))
Y=1
If X＜＞0 Then Y=2
Text1.Value=Y
End Sub
打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是
A. 1
B. 2
C. 3
D. 4
[单项选择]编写如下事件过程：
Option Explicit
Private Sub Form_Click（ ）
Dim Str As String,i As Integer
Open"examp" For Output As#1
For i=1 To 5
Str=Chr(i+65)
Print#1,Str;
Next i
Close 1
Open"examp" For Input As#2
Str=Input $ (5, #2)
Print Str;
Close #2
End Sub
程序运行后，单击窗体，则窗体上显示的内容是______。
A. ABCDE
B. BCDEF
C. bcdef
D. 65
[单项选择]设有下列程序：
Private Sub Form_Click（ ）
X=50
For i=1 To 4
y=InputBox("请输入一个整数")
y=Val(y)
If y Mod 5=0 Then
a=a+y
x=Y
Else
a=a+x
End If
Next i
Print a
End Sub
程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为( )
A. 100
B. 50
C. 120
D. 70
