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

完整版)VB 第四章 数组习题

答案： 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
1. Not Check = False 或 Check = True
2. 3
5
7
9
30
3．6
7
8
9
4. x >= 0 x < amin
5. 9
6. 1
2
3
7. x >= 7
8. 1024
9. 11
10. 1
2
3
11. 12
12. Option1（i).Value opt Label4。Caption
第一章 数组
一、选择题
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
Print Sum
End Sub
程序运行后，单击命令按钮，在窗体上的输出结果是
A．16 B．24 C．32 D．36
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 i
c = Sum / Finish
Text1。Text = c
End Sub
程序运行后,单击窗体，则在文本框中显示的内容是
A．40 B．10 C．12 D．16
3． 阅读程序:
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
4． 用下面的语句所定义的数组的元素个数是
Dim A(-3 To 5） As Integer
A．6 B．7 C．8 D．9
5． 用下面的语句所定义的数组的元素个数是
Dim arr(3 To 5， —2 To 2）
A．20 B．12 C．15 D．24
6． 在窗体上画一个命令按钮(其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
7． 在窗体上画一个命令按钮（其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
8． 在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：
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
程序运行后,单击命令按钮，输出结果是
A．4321 B．12 C．34 D．1234
9． 在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：
Option Base 1
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
程序运行后，单击命令按钮，输出结果是
A．7 B．6 C．5 D．4
10． 在窗体上画一个名称为List1的列表框，一个名称为Label1的标签框。列表框中显示若干城市的名称，当单击列表框中的某一城市名时，在标签中显示选中城市的名称.下列能正确实现上述功能的程序是
A．Private Sub List1_Click（) B．Private Sub List1_Click（）
Label1.Caption = List1.ListIndex Label1.Name = List1。ListIndex
End Sub End Sub
C．Private Sub List1_Click（） D．Private Sub List1_Click(）
Label1。Name = List1。Text Label1.Caption = List1。Text
End Sub End Sub
11． 为了使列表框中的项目分为多列显示,需要设置的属性为
A．Columns B．Style C．List D．MultiSelect
12． 要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目，则应把该列表框的MultiSelect属性设置为
A．0 B．1 C．2 D．其他
13． 删除列表框中指定的项目所使用的方法为
A．Move B．Remove C．Clear D．RemoveItem
14． 用户在组合框中输入或选择的数据可以通过一个属性获得,这个属性是
A．List B．ListIndex C．Text D．ListCount
二、填空题
1． 在窗体上画一个文本框,然后编写如下程序：
Option Base 1
Private 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个0～1000的随机整数，放入数组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 Max < Arr(i) Then
Max = Arr(i)
End If
Next i
Print Max
End Sub
3． 以下程序的功能是，程序运行后,单击命令按钮，输出结果为：
1 4 7
2 5 8
3 6 9
请填空。
Private Sub Command1_Click(）
Dim Arr（3， 3) As Integer
For i = 1 To 3
For j = 1 To 3
Arr(i， j) = ______
Print Arr(i， j）;
Next j
Print
Next i
End Sub
4． 控件数组的名字由 属性指定,而数组中的每个元素由 属性指定。
5． 由Array函数建立的数组必须是 变体 类型。
6． 在窗体上画一个命令按钮(其Name属性为Command1），然后编写如下代码：
Private Sub Command1_Click（）
Dim n（） As Integer

Dim a， b As Integer
a = InputBox（"Enter the first number”）
b = InputBox（"Enter the second number”）
ReDim n（a To b）
For k = LBound（n, 1) To UBound（n， 1）
n(k） = k
Print ”n（”; k； ")="; n（k)
Next k
End Sub
程序运行后,单击命令按钮，在输入对话框中分别输入2和3，输出结果为 。
7． 在窗体上画一个命令按钮（其Name属性为Command1）,然后编写如下代码：
Private Sub Command1_Click（)
Dim a(5)
For i = 0 To 4
a(i) = i + 1
t = i + 1
If t = 3 Then
Print a(i）；
a（t - 1) = a(i — 2)
Else
a(t) = a(i）
End If
If i = 3 Then a(i + 1） = a（t - 4)
a（4） = 1
Print a(i）；
Next i
End Sub
程序运行后，单击命令按钮,输出结果是 。
8． 在窗体上画一个命令按钮（其Name属性为Command1)，然后编写如下代码：
Private Sub Command1_Click（）
Dim M（10） As Integer
For k = 1 To 10
M（k) = 12 - k
Next k
x = 6
Print M(2 + M（x)）
End Sub
程序运行后，单击命令按钮，输出结果为 。
9． 在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：
Private Sub Command1_Click（)
Dim a（5, 5）
For i = 1 To 3
For j = 1 To 4
a(i， j） = i ＊ j
Next j
Next i
For n = 1 To 2
For M = 1 To 3
Print a（M， n)；
Next M
Next n
End Sub
程序运行后，单击命令按钮,输出结果是 。
10． 组合框有三种不同的类型，这三种类型是 、 、 ，分别通过把 属性设置为 、 、 来实现。
11． 在三种不同类型的组合框中，只能选择而不能输入数据的组合框式 。
12． 在窗体上画一个列表框，然后编写如下两个事件过程：
Private Sub Form_Click（)
List1.RemoveItem 1
List1。RemoveItem 3
List1.RemoveItem 2
End Sub

Private Sub Form_Load（)
List1。AddItem ”ItemA”
List1。AddItem "ItemB”
List1。AddItem "ItemC”
List1.AddItem ”ItemD"
List1。AddItem "ItemE”
End Sub
运行上面的程序，然后单击窗体，列表框中所显示的项目为 。
13． 在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后，在列表框中选择一个项目，然后单击命令按钮,即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示。下面是实现上述功能的程序,请填空。

Private Sub Form_Load()
List1.AddItem "AAAAA”
List1.AddItem ”BBBBB"
List1。AddItem "CCCCC”
List1。AddItem "DDDDD”
End Sub

Private Sub Command1_Click()
Dim L As Integer
L =
If ind >= 0 Then
List1。RemoveItem
Label1.Caption =
Else
MsgBox ”请选择要删除的项目”
End If
End Sub
三、编程题
1。编写程序，输出魔方阵。
魔方阵是一个n×n的二维数组，其中n为奇数。它由1～n×n的正整数组成，其中每行、每列及对角线上所有数字的总和都相同.
产生魔方阵的算法由很多种，下面的程序用“右上斜行法”产生魔方阵，其算法如下：
a) 把“1"放在第一行的中间一列.
b) 从“1"往右上方走放下“2”，但已超出方阵范围，故将其置于同列第n行。
c) 从“2"往右上方走放下“3”，也超出方阵范围,将其置于同行第一列。
d) 由于3是n的倍数,接下来的数字“4”置于同行下一列。
e) 重复上述步骤，直到填满n×n个数为止。
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.有一个n×m的矩阵，编写程序，找出其中最大的那个元素所在的行和列，并输出其值及行号和列号。

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.编写程序,输出“杨辉三角形"。