超星 - 数组测验

A. Dim a（）As Integer ReDim a（3，4） ReDim Preserve a（4，4）
B. Dim a（）As Integer ReDim a（n）As Single
C. Dim a（10）As Integer ReDim a（n + 10）
Dim a（）As Integer ReDim a（n）

查看答案

单选题

现有如下一段程序： Option Base 1 Private Sub Command1_Click（） Dim a a = Array（1，3，5，7） x = 1 For i = 4 To 1 Step -1 s = s + a（i）* x x = x * 10 Next Print s End Sub 执行该程序，单击Command1命令按钮，窗体上输出的结果是________。

A. 7531
B. 57
C. 13
D. 1357

查看答案

单选题

在窗体上放置一个命令按钮，然后编写以下事件过程： Private Sub Command1_Click（） Dim x（1 To 5）As Integer For k = 1 To 5 x（k）= 10 - k Next k Print x（x（k - 3）- 3） End Sub 运行程序后，单击命令按钮，输出结果是________。

A. 6
B. 9
C. 5
D. 7

查看答案

单选题

运行下列程序，单击命令按钮，输出结果是________。 Private Sub Form_Click（） Dim a a = Array（1，2，3，4，5，6） For i = LBound（a）To UBound（a） a（i）=a（i）* a（i） Next i Print a（i） End Sub

A. 36
B. 0
C. 不确定
D. 程序出错

查看答案

单选题

在窗体上放置一个命令按钮，然后编写以下事件过程： Private Sub Command1_Click（） Dim a（5）As String For i = 1 To 5 a（i）= Chr（Asc（"A"）+ 2 * i - 2） Next i For Each b In a Print b； Next End Sub 运行程序后，单击命令按钮，输出结果是________。

ABCDE
B. 出错信息
C. 1 2 3 4 5
D. ACEGI

查看答案

单选题

在模块的通用声明部分使用 “Option Base 1”语句，在某过程中使用“Dim a(-1 To 5, 10) As Integer” 语句声明的数组的元素个数为( )。

A. 50
B. 70
C. 80
D. 60

查看答案