第四章 数组习题.doc

答案：1.A2.C3.B4.D5.B6.A7.B8.A9.B10.A11.C12.C13.B14.A15.D1. Not Check = False 或 Check = True2. 357930367894. x = 0x = 78. 10249. 1110. 12311. 1212. Option1(i).ValueoptLabel4.Caption第一章 数组一、选择题1 在窗体上画一个命令按钮，然后编写如下程序：Option Base 1Private 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 SumEnd Sub程序运行后，单击命令按钮，在窗体上的输出结果是A16B24C32D362 在窗体上画一个文本框，然后编写如下代码：Option Base 1Private 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 = cEnd Sub程序运行后，单击窗体，则在文本框中显示的内容是A40B10C12D163 阅读程序：Option Base 1Private 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 iEnd Sub程序运行后，单击窗体，输出结果是A57B68C79D810 68 79 8108114 用下面的语句所定义的数组的元素个数是Dim A(-3 To 5) As IntegerA6B7C8D95 用下面的语句所定义的数组的元素个数是Dim arr(3 To 5, -2 To 2)A20B12C15D246 在窗体上画一个命令按钮（其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程序运行后，单击命令按钮，输出结果是A113B311C133D3137 在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Option Base 1Private 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 kEnd Sub程序运行后，单击命令按钮，输出结果是A35B28C33D378 在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Option Base 1Private Sub Command1_Click() Dim a 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 sEnd Sub程序运行后，单击命令按钮，输出结果是A4321B12C34D12349 在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Option Base 1Private 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程序运行后，单击命令按钮，输出结果是A7B6C5D410 在窗体上画一个名称为List1的列表框，一个名称为Label1的标签框。列表框中显示若干城市的名称，当单击列表框中的某一城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是APrivate Sub List1_Click()BPrivate Sub List1_Click()Label1.Caption = List1.ListIndex Label1.Name = List1.ListIndexEnd SubEnd SubCPrivate Sub List1_Click()DPrivate Sub List1_Click() Label1.Name = List1.Text Label1.Caption = List1.TextEnd Sub End Sub11 为了使列表框中的项目分为多列显示，需要设置的属性为AColumnsBStyleCListDMultiSelect12 要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目，则应把该列表框的MultiSelect属性设置为A0B1C2D其他13 删除列表框中指定的项目所使用的方法为AMoveBRemoveCClearDRemoveItem14 用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是AListBListIndexCTextDListCount二、填空题1 在窗体上画一个文本框，然后编写如下程序：Option Base 1Private Sub Form_Click() Dim Arr(10) As Integer For i = 6 To 10 Arr(i) = i - 3 Next i Text1.Text = Str(Arr(6) + Arr(Arr(6) + Arr(10)End Sub程序运行后，单击窗体，在文本框中显示的内容是10。2 以下程序的功能是产生10个01000的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。Option Base 1Private Sub Form_Click() Dim Arr(10) As Integer Dim Max As Integer Randomize For i = 1 To 10 Arr(i) = Int(Rnd * 1000) Next i Max = Arr(1) For i = 2 To 10 If Max = 0 Then List1.RemoveItem Label1.Caption = Else MsgBox 请选择要删除的项目 End IfEnd Sub三、编程题1.编写程序，输出魔方阵。魔方阵是一个nn的二维数组，其中n为奇数。它由1nn的正整数组成，其中每行、每列及对角线上所有数字的总和都相同。产生魔方阵的算法由很多种，下面的程序用“右上斜行法”产生魔方阵，其算法如下：a) 把“1”放在第一行的中间一列。b) 从“1”往右上方走放下“2”，但已超出方阵范围，故将其置于同列第n行。c) 从“2”往右上方走放下“3”，也超出方阵范围，将其置于同行第一列。d) 由于3是n的倍数，接下来的数字“4”置于同行下一列。e) 重复上述步骤，直到填满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的矩阵，编写程序，找出其中最大的那个元素所在