6.6 程序举例

例 9 ：编写程序，输出杨辉三角形。

程序代码：

Dim a()

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim n As Integer

If KeyAscii = 13 Then

n = Val(Text1.Text)

If n > 16 Then

MsgBox " 请不要超过 16"

Exit Sub

End If

ReDim a(n, n)

For i = 1 To n

a(i, 1) = 1: a(i, i) = 1

Next

p = Format(1, "!@@@@") & Chr(13)

p = p & Format(1, "!@@@@") & Format(1, "!@@@@") & Chr(13)

For i = 3 To n

p = p & Format(a(i, 1), "!@@@@")

For j = 2 To i - 1

a(i, j) = a(i - 1, j - 1) + a(i - 1, j)

p = p & Format(a(i, j), "!@@@@")

Next

p = p & Format(a(i, i), "!@@@@") & Chr(13)

Next

MsgBox p, 0, " 杨辉三角形 "

End If

End Sub

执行结果：

习题：

1 ．某数组有 20 个元素，元素的值由键盘输入，要求将前 10 个元素与后 10 个元素对换。即第 1 个元素与第 20 个元素互换，第 2 个元素与第 19 个元素互换，…，第 10 个元素与第 11 个元素互换。输出数组原来各元素的值和对换后各元素的值。

2 ．利用一维数组统计一个班学生 0 ～ 9 、 10 ～ 19 、 20 ～ 29 、…、 90 ～ 99 及 100 各分数段的人数。

3 ．编写程序，建立并输出一个 10 × 10 的矩阵。该矩阵两条对角线元素为 1 ，其余元素均为 0 。

4 ．矩阵转置。即将矩阵行、列互换：

5 ．利用选择法、插入法、冒泡法对计算机随机生成的 10 个互不相同的数，按由小到大的顺序显示。