《VB 第四章 数组习题.docx》由会员分享，可在线阅读，更多相关《VB 第四章 数组习题.docx（10页珍藏版）》请在三一办公上搜索。
1、VB 第四章 数组习题第一章 数组 一、选择题 1在窗体上画一个命令按钮，然后编写如下程序： 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 Pr
2、int Sum End Sub 程序运行后，单击命令按钮，在窗体上的输出结果是 A16 B24 C32 2在窗体上画一个文本框，然后编写如下代码： 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
3、 i c = Sum / Finish Text1.Text = c End Sub 程序运行后，单击窗体，则在文本框中显示的内容是 A40 B10 C12 3阅读程序： Option Base 1 D36 D16 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 S
4、ub 程序运行后，单击窗体，输出结果是 A5 7 B6 8 C7 9 D8 10 6 8 7 9 8 10 8 11 4用下面的语句所定义的数组的元素个数是 Dim A(-3 To 5) As Integer A6 B7 C8 D9 5用下面的语句所定义的数组的元素个数是 Dim arr(3 To 5, -2 To 2) A20 B12 C15 D24 6在窗体上画一个命令按钮，然后编写如下代码： Private Sub Command1_Click Dim Arr1(10), Arr2(10) As Integer n = 3 For i = 1 To 5 Arr1(i) = i Arr2(
5、n) = 2 * n + i Next i Print Arr2(n); Arr1(n) End Sub 程序运行后，单击命令按钮，输出结果是 A11 3 B3 11 C13 3 D3 13 7在窗体上画一个命令按钮，然后编写如下代码： 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
6、i Print k End Sub 程序运行后，单击命令按钮，输出结果是 A35 B28 C33 D37 8在窗体上画一个命令按钮，然后编写如下代码： Option Base 1 Private 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 s End Sub 程序运行后，单击命令按钮，输出结果是 A4321 B12 C34 D1234 9在窗体上画一个命令按钮，然后编写如下代码： Option Base 1
7、 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 程序运行后，单击命令按钮，输出结果是 A7 B6 C5 D4 10 在窗体上画一个名称为List1的列表框，一个名称为Label1的标签框。列表框中显示若干城市的名称，当单击列表框中的某一城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是 APrivate Sub List1_Click BPrivate Su
8、b List1_Click Label1.Caption = List1.ListIndex Label1.Name = List1.ListIndex End Sub End Sub CPrivate Sub List1_Click DPrivate Sub List1_Click Label1.Name = List1.Text Label1.Caption = List1.Text End Sub End Sub 11 为了使列表框中的项目分为多列显示，需要设置的属性为 AColumns BStyle CList DMultiSelect 12 要想不使用Shift或Ctrl键就能在列表
9、框中同时选择多个项目，则应把该列表框的MultiSelect属性设置为 A0 B1 C2 D其他 13 删除列表框中指定的项目所使用的方法为 AMove BRemove CClear DRemoveItem 14 用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是 AList BListIndex CText DListCount 二、填空题 1在窗体上画一个文本框，然后编写如下程序： Option Base 1 Private Sub Form_Click Dim Arr(10) As Integer For i = 6 To 10 Arr(i) = i - 3 Next i T
10、ext1.Text = Str(Arr(6) + Arr(Arr(6) + Arr(10) End Sub 程序运行后，单击窗体，在文本框中显示的内容是 10 。 2以下程序的功能是产生10个01000的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。 Option Base 1 Private 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
11、 Max = 0 Then List1.RemoveItem Label1.Caption = Else MsgBox 请选择要删除的项目 End If End Sub 三、编程题 1.编写程序，输出魔方阵。 魔方阵是一个nn的二维数组，其中n为奇数。它由1nn的正整数组成，其中每行、每列及对角线上所有数字的总和都相同。 产生魔方阵的算法由很多种，下面的程序用“右上斜行法”产生魔方阵，其算法如下： a) 把“1”放在第一行的中间一列。 b) 从“1”往右上方走放下“2”，但已超出方阵范围，故将其置于同列第n行。 c) 从“2”往右上方走放下“3”，也超出方阵范围，将其置于同行第一列。 d) 由
12、于3是n的倍数，接下来的数字“4”置于同行下一列。 e) 重复上述步骤，直到填满nn个数为止。 2.编写程序，用选择法对数组中的数据按由小到大的顺序进行排序。 3.从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即：第一个元素与第十个元素互换，第二个元素与第九个元素互换第五个元素与第六个元素互换。分别输出数组原来各元素的值和对换后各元素的值。 4.设有如下两组数据： A：2，8，7，6，4，28，70，25 B：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.编写程序，输出“杨辉三角形”。
