打印本文 
关闭窗口 1.用下面的语句所定义的数组的元素个数是
Dim A(-3 To 5) As Integer
A.6
B.7
C.8
D.9
2. 用下面的语句所定义的数组的元素个数是
Dim arr(3 To 5, -2 To 2)
A.20
B.12
C.15
D.24
3. 在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：
Private Sub Command1_Click()
Dim Arr1(10), arr2(10) As Integer
n=3
For i = 1 To 5
Arr1(i) = i
arr2(n) = 2 * n + i
Next i
Print arr2(n); Arr1(n)
End Sub
程序运行后，单击命令按钮，输出结果是
A.11 3
B.3 11
C.13 3
D.3 13
4. 在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
Dim a(10), p(3) As Integer
k=5
For i= 1 To 10
a(i)= i
Next i
For i= 1 To 3
p(i) = a(i * i)
Next i
For i = 1 To 3
k = k + p(i) * 2
Next i
Prim k
End Sub
程序运行后，单击命令按钮，输出结果是
A.35
B.28
C.33
D.37
5. 在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
Dim ａ
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.4321
B.12
C.34
D.1234
6. 在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
Dim Arr(3) As Integer
For i = 1 To 3
For j = 1 To 3
Arr(j) = Arr(i) + 1
Next j
Next i
Print Arr(3)
End Sub
程序运行后，单击命令按钮，其输出结果为
A.7
B.6
C.5
D.4
二、填空题
1．控件数组的名字由__________属性指定，而数组中的每个元素由_________属性指定。
2．由Array函数建立的数组必须是_________类型。
3．在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：
Private Sub Command1_Click()
Dim n() As Integer
Dim a,b As Integer
a = InputBox("Enter the first number")
b = InputBox("Enter the second number")
ReDim n(a To b)
For k = LBound(n,1) To UBound(n,1)
n(k) = k
Print "n("; k; ") = "; n(k)
Next k
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为_________。
4．在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：
Private Sub Command1_Click()
Dim a(5)
For i=0 To 4
a(i) = i + 1
t=i+1
If t = 3 Then
Print a(i);
a(t - 1) = a(i - 2)
Else
a(t) = a(i)
End If
If i = 3 Then a(i + 1) = a(t - 4)
a(4) = 1
Prim a(i);
Next i
End Sub
程序运行后，单击命令按钮，输出结果是__________。
5．在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：
Private Sub Command1_Click()
Dim M(10) As Integer
Fork= 1 To 10
M(k) = 12 - k
Next k
x=6
Print M(2 + M(x))
End Sub
程序运行后，单击命令按钮，输出结果是___________。
6．在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：
Private Sub Command1_Click()
Dim a(5, 5)
For i = 1 To 3
For j = 1 To 4
a(i, j) = i * j
Next j
Next i
For n= 1 To 2
For M = 1 To 3
Print a(M, n);
Next M
Next n
End Sub
程序运行后，单击命令按钮，输出结果是_____________。
三、编程题
1.从键盘上输入 10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即：第一个元素与第十个元素互换，第二个元素与
第九个元素互换……第五个元素与第六个元素互换。分别输出数组原来各元素的值和对换后各元素的值。
2.设有如下两组数据：
A：2,8,7,6,4,28,70,25
B：79,27,32,41,57,66,78,80
编写一个程序，把上面两组数据分别读入两个数组中，然后把两个数组中对应下标的元素相加，即2+79，8+27……25+80，并把相应的结果放
入第三个数组中，最后输出第三个数组的值。
3.有一个n×m的矩阵，编写程序，找出其中最大的那个元素所在的行和列，并输出其值及行号和列号。
4．某单位开运动会，共有10人参加男子100米短跑，运动员号和成绩如下：
207号 14.5秒 077号 15.1秒
156号 14.2秒 231号 14.7秒
453号 15.2秒 276号 13.9秒
096号 15.7秒 122号 13.7秒
339号 14.9秒 302号 14.5秒
编写程序，按成绩排出名次，并按如下格式输出：
名次 运动员号 成绩
1 …… ……
2 …… ……
3 …… ……
… …… ……
10 …… ……
打印本文 关闭窗口