VB 第四章 数组习题.doc
文本预览下载声明
答案： 1.A 2.C 3.B 4.D 5.B 6.A 7.B 8.A 9.B
10.A 11.C 12.C 13.B 14.A 15.D
Not Check = False 或 Check = True
3
5
7
9
30
3．6
7
8
9
x = 0 x amin
9
1
2
3
x = 7
1024
11
1
2
3
12
Option1(i).Value opt Label4.Caption
数组
一、选择题
在窗体上画一个命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click(Index As Integer)
Dim Arr1(12) As Integer, Arr2(3) As Integer
Dim Sum As Integer
Sum = 2
For i = 1 To 12
Arr1(i) = i
Next i
For i = 1 To 3
Arr2(i) = Arr1(i * i)
Next i
For i = 1 To 3
Sum = Sum + Arr2(i)
Next i
Print Sum
End Sub
程序运行后，单击命令按钮，在窗体上的输出结果是
A．16 B．24 C．32 D．36
在窗体上画一个文本框，然后编写如下代码：
Option Base 1
Private Sub Form_Click()
Dim arr
Dim Start As Integer, Finish As Integer
Dim Sum As Integer
arr = Array(12, 4, 8, 16)
Start = LBound(arr)
Finish = UBound(arr)
Sum = 0
For i = Start To Finish
Sum = Sum + arr(i)
Next i
c = Sum / Finish
Text1.Text = c
End Sub
程序运行后，单击窗体，则在文本框中显示的内容是
A．40 B．10 C．12 D．16
阅读程序：
Option Base 1
Private Sub Form_Click()
Dim Arr(4, 4) As Integer
For i = 1 To 4
For j = 1 To 4
Arr(i, j) = (i - 1) * 2 + j
Next j
Next i
For i = 3 To 4
For j = 3 To 4
Print Arr(j, i);
Next j
Print
Next i
End Sub
程序运行后，单击窗体，输出结果是
A．5 7 B．6 8 C．7 9 D．8 10
6 8 7 9 8 10 8 11
用下面的语句所定义的数组的元素个数是
Dim A(-3 To 5) As Integer
A．6 B．7 C．8 D．9
用下面的语句所定义的数组的元素个数是
Dim arr(3 To 5, -2 To 2)
A．20 B．12 C．15 D．24
在窗体上画一个命令按钮（其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
在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
Dim a(10), p(3) As Integer
k = 5
显示全部