更多"设有如下程序： Private Sub Form_Click（ ） "的相关试题:
[单项选择]设有如下程序：
Option Base 0
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
[单项选择]设有如下程序：
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 search(a( )As Variant，ByVal key As Variant，index%)
Dim I%
For I=LBound(
A. To UBound(a)
[单项选择]设有如下程序：
Private Sub Form_Click（ ）
Dim i As Integer, x As String, y As String
x="ABCDEFG"
For i=4 To 1 Step-1
y=Mid(x, i, i)+y
Next i
Print y
End Sub
程序运行后，单击窗体，输出结果为( )。
A. ABCCDEDEFG
B. AABBCDEFG
C. ABCDEFG
D. AABBCCDDEEFFGG
[单项选择]设有如下程序：
Private Sub search(a（ ）As Variant，ByVal key As Variant，index%)
Dim I％
For I = Lbound(
A. To Ubound(
[单项选择]
设有一个命令按钮Commsand1的事件过程以及一个函数过程。程序如下：
Private Sub Command1_Click(0
Static x As Integer
x=f(x+5)
Cls
Print x
End Sub
Private Funtion f(x As integer)As Integer
F=x+x
End Funtion
连续单击命令按钮3次，第3次单击命令按钮后，窗体上显示的计算结果是（）。
A. 10
B. 30
C. 60
D. 70
[单项选择]设有如下事件过程：
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button=2 Then
PopupMenu popMenu
End If
End Sub
则以下描述中错误的是( )。
A. 该过程的功能是弹出一个菜单
B. popMenu是在菜单编辑器中定义的弹出式菜单的名称
C. 参数X、Y指明鼠标的当前位置
D. Button=2表示按下的是鼠标左键
[单项选择]有如下程序：
Private Sub Command1 Click（ ）
Dim a As Single
Dim b As Single
a=5：b=4
Call S(a，B)
End Sub
Sub S(x As Single，y As Single)
t=x
x=t/y
y=t Mod y
End Sub
在调用运行上述程序后，a和b的值分别为（ ）。
A. java.exe
B. javadoc.exe
C. jdb.exe
D. javaprof.exe
[单项选择]有如下程序 Private Sub Command1_Chck( ) s=0 DO s=(s+1) *(s+2) N=N+1 Loop Until s＞=10 Prim N；s End Sub 运行后的输出结果是
A. 0 1
B. 30 30
C. 4 30
D. 2 12
[单项选择]有如下程序：
Private Sub Form_Click（ ）
Dim i As Integer, Sum As Integer
Sum=0
For i=2 To 10
If i Mod 2＜＞0 And i Mod 3=0 Then
Sum=Sum+i
End If
Next
Print Sum
End Sub
程序运行后，单击窗体，输出结果为( )。
A. 12
B. 30
C. 24
D. 18
[单项选择]有如下程序： Private Sub Commandl_Click（ ） Dim a As Integer a=2 For i=1 To 3 Print Gad (
[单项选择]
有如下程序：
Option Base !
Private Sub Command1_Click（ ）
Dim arr(10)
arr=Array(10,35,28,90,54,68,72,90)
For Each a In arr
If a>50 Then
Sum=Sun+a
End If
Next a
End Sub
运行上述程序时出现错误，错误之处是（ ）。
A. 数组定义语句不对，应改为Dim arr
B. 没有指明For循环的终值
C. 应在For语句之前增加Sum=0
D. Next a应改为Next
[单项选择]有如下程序：
Private Sub Command1_Click（ ）
s = 0
Do
s=(s+1) ( (s+2)
N=N+1
Loop Until s＞=10
Print N；s
End Sub
运行后的输出结果是
A. 0 1
B. 30 30
C. 4 30
D. 2 12
[单项选择]
设有如下窗体单击事件过程：
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
[单项选择]
现有如下一段程序：
Option Base 1
Private Sub Command1_Click（ ）
Dim a
a=Array(3,5,7,9)
x=1
For i=4 to 1 Step -1
S=s+a ( i )*x
x=x*10
Next
Print s
End Sub
执行程序，单击Command1命令按钮，执行上述事件过程，输出结果是（ ）。
A. 9753
B. 3579
C. 35
D. 79
[单项选择]编写如下程序：
Private Sub Command1_Click（ ）
x="abcd"
y="1234"
For i=1 To 4
z=z+Mid(x，i，1)+Left(y，1)
Next i
Print z
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是
A. abcd1234
B. a1b2c3d4
C. a1b1c1d1
D. 1234abcd
