Question

跪求几道题目答案，求速度，谢谢

1.下列程序的输出结果是____________。

Dim i As Integer, k As Integer
Dim a(10) As Integer, p(3) As Integer
k = 5
For i = 0 To 9
a(i) = i
Next i
For i = 0 To 2
p(i) = a(i * (i + 1))
Next i
For i = 0 To 2
k = k + p(i) * 2
Next I
Print k
A、23
B、21
C、22
D、17
2. 下面有关数组处理的叙述中，不正确的是_______。
①控件数组可由多个控件组成，这些控件具有相同的名字
②控件数组中的元素可以是不同类型的控件
③用ReDim语句重新定义动态数组时，不得改变该数组
的数据类型
④可用Public语句在窗体模块的通用说明处定义一个全
局数组
A、②④
B、①③④
C、①②③
D、①②③④
3. 在窗体模块的通用声明处有如下语句，会产生错误的语句是___。
①Const a as Integer=25
②Public St As String * 8
③ReDim B(3) As Integer
④Dim Const X As Integer=10
A、①③
B、②③④
C、①②③
D、①②
4. 如下数组声明语句，则数组a包含元素的个数有____________。
Dim a(3 , -2 to 2 , 5)
A、75
B、13
C、60
D、120
5. 下列程序段的执行结果是________。
Dim A(3,3)
For M=1 TO 3
For N=1 TO 3
If N=M Or N=3-M+1 Then
A(M,N)=1
Else
A(M,N)=0
End If
Next N
Next M
For M=1 TO 3
For N=1 TO 3
Print A(M,N);
Next N
Print
Next M
A、0 0 0
0 0 0
0 0 0
B、1 1 1
1 1 1
1 1 1
C、1 0 0
0 1 0
0 0 1
D、1 0 1
0 1 0
1 0 1
6. 下列程序段的输出结果是____________。
Dim i As Integer
Dim a(8) As Integer
y = 18: i = 0
Do
a(i) = y Mod 2
i = i + 1
y = y \ 2
Loop Until y < 1
For j = i - 1 To 0 Step -1
Print a(j);
Next j
A、1 0 0 1 0
B、0 0 1 1 0
C、1 0 1 0 0
D、1 0 0 0 0
7. 以下程序输出的结果是____________。
Dim a
a=Array(1,2,3,4,5,6,7)
For i=Lbound(a)To Ubound(a)
a(i)= a(i)*a(i)
Next i
Print a(i)
A、49
B、程序出错
C、不确定
D、0
8. 要分配存放如下方阵的数据，____________数组声明语句能实现(不能浪费空间)。每行三个元素，第一行为：1.1 2.2 3.3第二行为：4.4 5.5 6.6第三行为：7.7 8.8 9.9
A、Dim a(3，3) As Single
B、Dim a(-1 To l，-5 To -3) As Single
C、Dim a(-3 To -1，5 To 7) As Integer
D、Dim a(9) As Single
9. 某过程的说明语句中，正确的数组说明语句是____________。Const N as integer=4 Dim L as integer ①.Dim X (L) As Integer ②.Dim A(K) As Integer
Const K As Integer=3 ③.Dim B(N) As Integer ④.Dim Y(2000 To 2008) As Integer

A、②③
B、③④
C、①②④
D、①③④
10. 在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click( )
Dim a As Variant
a = Array(1,2,3,4)
j = 1
For i = 4 To 1 Step -1
s = s + a(i)*j
j = j * 10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是_____________。
A、1234
B、34
C、12
D、4321

Answer 1

BABAD ABBBA