更多"设有如下程序： Option Base （ ） Private S"的相关试题:
[单项选择]设有如下程序：
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 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
[单项选择]
现有如下一段程序：
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
[单项选择]有下列程序：
Option Base 0
Private Sub Command1_Click（ ）
Dim City As Variant
x = Array("Visual"，"Basic"，"Microsoft"，"Programming")
Print x(2)
End Sub
程序运行后，单击命令按钮，则在窗体上显示的内容是
A. Microson
B. 错误提示
C. Visual
D. Basic
[单项选择]下列程序运行时输出的结果是( )。
Option Base 1
Private Sub Form_Click（ ）
Dimx(10)
ForI=1 to 10
x(i)=10-I+1
Next I
ForI=10 to 1 step-2
Printx(i)；
NextI
End Sub
A. 1 3579
B. 975 3 1
C. 1234567 89 10
D. 1098765432 1
[单项选择]下列程序在运行时输出的结果是( )。
Option Base 1
Private Sub Form_Click（ ）
Dim x(10)
For i=1 To 10
x(i)=10-i+1
Next i
For i=10 To 1 Step-2
Print x(i)
Next i
End Sub
A. 1 3 5 7 9
B. 9 7 5 3 1
C. 1 2 3 4 5 6 7 8 9 10
D. 10 9 8 7 6 5 4 3 2 1
[单项选择]以下程序运行后输出的结果是 ______。
Option Base 1
Private Sub Form_Click（ ）
Dim A(20)
For K=1 To 20
A(K)=K^2
Next K
Print A(K)
End Sub
A. 20
B. 441
C. 400
D. 出错信息
[单项选择]执行以下语句过程，在窗体上显示的内容是
Option Base 0
Private Sub Command3_Click( )
Dim d
d=Array("a", "b", "c", "d"
Print d(1) ; d(3)
End Sub
A. ab
B. bd
C. ac
D. 出错
[单项选择]执行以下语句过程，在窗体上显示的内容是
Option Base 0
Private Sub Command3_Click（ ）
Dim d
d=Array("a"，"b"，"c"，"d")
Print d(1);d(3)
End Sub
A. ab
B. bd
C. ac
D. 出错
[单项选择]执行以下语句过程，在窗体上显示的内容是
Option Base 0
Private Sub Command3_Click( )
Dim d
d=Array("a"，"b"，"c"，"d")
Print d(1)；d(3)
End Sub
A. ab
B. bd
C. ac
D. 出错
[单项选择]编写如下事件过程：
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 Commandl_click（ ）
Dim c As Integer,d As Integer
c=4
d=InputBox("请输入一个整数")
Do While d＞0
If d＞c Then
c=c+1
End If
d=InputBox("请输入一个整数")
Loop
Print c+d
End Sub
程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、 0，则输出结果是
A) 12 B) 11 C) 10 D) 9
[单项选择]设有如下程序： 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 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(
