数组应用

1 在VB中可以通过哪几个语句定义数组？它们之间的区别是什么？

解：在VB中，可以用4个语句来定义数组，这4个语句格式相同，但适用范围不一样。

（1）Dim 用在窗体模块或标准模块中，定义窗体或标准模块数组，也可用于过程中。

（2）ReDim 用在过程中。

（3）Static 用在过程中。

（4）Public 用在标准模块中，定义全局数组。

8．3 用下面语句定义的数组中各有多少个元素？

①Dim arr(12) ②Dim arr(3 To 8)

③Dim arr(3 To 5,-2 To 2) ④Dim arr(2,4,6)

⑤Option Base 1 ⑥Option Base 1

Dim arr(3,3) Dim arr(22)

⑦Dim arr(-5 to 5) ⑧Option Base 1

Dim arr(-8 To –2,4)

解：

①13 ②6 ③15 ④105 ⑤9 ⑥22 ⑦11 ⑧28

8．4 从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即：第1个元素与第10个元素互换，第2个元素与第9个元素互换……第5个元素与第6个元素互换。分别输出数组原来各元素的值和对换后各元素的值。

Option Base 1

Private Sub Form_Click()

arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

Print "原来数组："

For i = 1 To 10

Print arr(i);

Next i

Print

For i = 1 To 5

For j = 6 To 10

t = arr(i)

arr(i) = arr(j)

arr(j) = t

Next j

Next i

Print "对换后数组："

For i = 1 To 10

Print arr(i);

Next i

End Sub

5 设有如下两组数据。

（1）2，8，7，6，4，28，70，25

（2）79，27，32，41，57，66，78，80

编写一个程序，把上面两组数据分别读入两个数组中，然后把两个数组中对应下标的元素相加，即2+79，8+27，……，25——80，并把相应的结果放入第三个数组中，最后输出第三个数组的值。

6 有一个n×m的矩阵，编写程序，找出其中最大的那个元素所在的行和列，并输出其值及行号和列号。

7．10 编写程序，建立并输出一个10x10的矩阵，该矩阵对角线元素为1，其余元素为0

8 编写程序，实现矩阵转置，即将一个n´m的矩阵的行和列互换。

9编写程序，输出“杨辉三角形”。

杨辉三角形的每一行是（x+y）n的展开式的各项的系数。例如第1行是（x+y）0，其系数为1；第2行为（x+y）1，其系数为1；第3 行为（x+y）2，其展开式为x2+2xy+y2，系数分别为1，2，1……一般形式如下

1

1 1 1

1 2 1

1 3 3 1

1 4 6 4 1

1 5 10 10 5 1

……

10盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换.