VB-第四章-数组习题.doc

数组 一、选择题 在窗体上画一个命令按钮，然后编写如下程序： 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 阅读程序： 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 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 Print k End Sub 程序运行后，单击命令按钮，输出结果是 A．35 B．28 C．33 D．37 在窗体上画一个命令按钮