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

Print Sum

End Sub

程序运行后，单击命令按钮，在窗体上的输出结果是

A．16B．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．10C．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 9D．8 10

6 8

7 9

8 108 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．15D．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 3B．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．33D．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．5D．4 10．在窗体上画一个名称为List1的列表框，一个名称为Label1的标签框。列表框中显示若干城市的名称，当单击列表框中的某一城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是

A．Private Sub List1_Click() B．Private Sub List1_Click()

Label1.Caption = List1.ListIndex https://www.360docs.net/doc/6119010578.html, = List1.ListIndex End Sub End Sub

C．Private Sub List1_Click() D．Private Sub List1_Click()

https://www.360docs.net/doc/6119010578.html, = 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

程序运行后，单击命令按钮，输出结果是。

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