第四章 数组习题.doc

1、第一章 数组一、选择题1在窗体上画一个命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click(Index As Integer)Dim Arr1(12) As Integer, Arr2(3) As IntegerDim Sum As IntegerSum = 2For i = 1 To 12Arr1(i) = iNext iFor i = 1 To 3Arr2(i) = Arr1(i * i) Next iFor i = 1 To 3Sum = Sum + Arr2(i)Next iPrint SumEnd Sub程序运行后，单击命令按钮，

2、在窗体上的输出结果是A16 B24 C32 D362在窗体上画一个文本框，然后编写如下代码：Option Base 1Private Sub Form_Click()Dim arrDim Start As Integer, Finish As IntegerDim Sum As Integerarr = Array(12, 4, 8, 16)Start = LBound(arr)Finish = UBound(arr)Sum = 0For i = Start To FinishSum = Sum + arr(i)Next ic = Sum / FinishText1.Text = cEnd S

3、ub程序运行后，单击窗体，则在文本框中显示的内容是A40 B10 C12 D163阅读程序：Option Base 1Private Sub Form_Click()Dim Arr(4, 4) As IntegerFor i = 1 To 4For j = 1 To 4Arr(i, j) = (i - 1) * 2 + jNext jNext iFor i = 3 To 4For j = 3 To 4Print Arr(j, i);Next jPrintNext iEnd Sub程序运行后，单击窗体，输出结果是A5 7 B6 8 C7 9 D8 106 8 7 9 8 10 8 114用下面的

4、语句所定义的数组的元素个数是Dim A(-3 To 5) As IntegerA6 B7 C8 D95用下面的语句所定义的数组的元素个数是Dim arr(3 To 5, -2 To 2)A20 B12 C15 D246在窗体上画一个命令按钮（其 Name 属性为 Command1） ，然后编写如下代码：Private Sub Command1_Click()Dim Arr1(10), Arr2(10) As Integern = 3For i = 1 To 5Arr1(i) = iArr2(n) = 2 * n + iNext iPrint Arr2(n); Arr1(n)End Sub程序运

5、行后，单击命令按钮，输出结果是A11 3 B3 11 C13 3 D3 137在窗体上画一个命令按钮（其 Name 属性为 Command1） ，然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim a(10), p(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3p(i) = a(i * i)Next iFor i = 1 To 3k = k + p(i) * 2Next iPrint kEnd Sub程序运行后，单击命令按钮，输出结果是A35 B28 C33 D3

6、78在窗体上画一个命令按钮（其 Name 属性为 Command1） ，然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4)j = 1For i = 4 To 1 Step -1s = s + a(i) * jj = j * 10Next iPrint sEnd Sub程序运行后，单击命令按钮，输出结果是A4321 B12 C34 D12349在窗体上画一个命令按钮（其 Name 属性为 Command1） ，然后编写如下代码：Option Base 1Private Sub Command1_

7、Click()Dim Arr(3) As IntegerFor i = 1 To 3For j = 1 To 3Arr(j) = Arr(i) + 1Next jNext iPrint Arr(3)End Sub程序运行后，单击命令按钮，输出结果是A7 B6 C5 D410 在窗体上画一个名称为 List1 的列表框，一个名称为 Label1 的标签框。列表框中显示若干城市的名称，当单击列表框中的某一城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是APrivate Sub List1_Click() BPrivate Sub List1_Click()Label1.Capt

8、ion = List1.ListIndex Label1.Name = List1.ListIndexEnd Sub End SubCPrivate Sub List1_Click() DPrivate Sub List1_Click()Label1.Name = List1.Text Label1.Caption = List1.TextEnd Sub End Sub11 为了使列表框中的项目分为多列显示，需要设置的属性为AColumns BStyle CList DMultiSelect12 要想不使用 Shift 或 Ctrl 键就能在列表框中同时选择多个项目，则应把该列表框的 Mult

9、iSelect 属性设置为A0 B1 C2 D其他13 删除列表框中指定的项目所使用的方法为AMove BRemove CClear DRemoveItem14 用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是AList BListIndex CText DListCount二、填空题1在窗体上画一个文本框，然后编写如下程序：Option Base 1Private Sub Form_Click()Dim Arr(10) As IntegerFor i = 6 To 10Arr(i) = i - 3Next iText1.Text = Str(Arr(6) + Arr(Arr(6

10、) + Arr(10)End Sub程序运行后，单击窗体，在文本框中显示的内容是 10 。2以下程序的功能是产生 10 个 01000 的随机整数，放入数组 Arr 中，然后输出其中的最大值。请填空。Option Base 1Private Sub Form_Click()Dim Arr(10) As IntegerDim Max As IntegerRandomizeFor i = 1 To 10Arr(i) = Int(Rnd * 1000)Next iMax = Arr(1) For i = 2 To 10If Max = 0 ThenList1.RemoveItem Label1.Ca

11、ption = ElseMsgBox “请选择要删除的项目“End IfEnd Sub三、编程题1.编写程序，输出魔方阵。魔方阵是一个 nn 的二维数组，其中 n 为奇数。它由 1nn 的正整数组成，其中每行、每列及对角线上所有数字的总和都相同。产生魔方阵的算法由很多种，下面的程序用“右上斜行法”产生魔方阵，其算法如下：a) 把“1”放在第一行的中间一列。b) 从“1”往右上方走放下“2” ，但已超出方阵范围，故将其置于同列第n 行。c) 从“2”往右上方走放下“3” ，也超出方阵范围，将其置于同行第一列。d) 由于 3 是 n 的倍数，接下来的数字“4”置于同行下一列。e) 重复上述步骤，直

12、到填满 nn 个数为止。2.编写程序，用选择法对数组中的数据按由小到大的顺序进行排序。3.从键盘上输入 10 个整数，并放入一个一维数组中，然后将其前 5 个元素与后5 个元素对换，即：第一个元素与第十个元素互换，第二个元素与第九个元素互换第五个元素与第六个元素互换。分别输出数组原来各元素的值和对换后各元素的值。4.设有如下两组数据：A：2，8，7，6，4，28，70，25B：79，27，32，41，57，66，78，80编写一个程序，把上面两组数据分别读入两个数组中，然后把两个数组中对应下标的元素相加，即 2+79，8+27，25+80，并把相应的结果放入第三个数组中，最后输出第三个数组的值。5.有一个 nm 的矩阵，编写程序，找出其中最大的那个元素所在的行和列，并输出其值及行号和列号。6.某单位开运动会，共有 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 7.编写程序，输出“杨辉三角形” 。