实验十 一维数组程序设计
16
11-6 运行结果界面
源代码：
Private Sub Form_Click() Dim i As Integer For i = 1 To 5 Load Text1(i) Text1(i).Visible = True
Text1(i).Left = Text1(0).Left + Text1(0).Width * i Text1(i).Top = Text1(0).Top + Text1(0).Height * i Next i End Sub
【11-7】按图设计窗体，其中一组（共六个）单选框构成控件数组，要求当单击某个单选框时，能改变文本框中文字的大小。程序运行结果界面如图11-7所示：
11-7 运行结果界面
源代码：
Private Sub Form_Load() Option1(0).Value = True Text1.FontSize = 10 End Sub
Private Sub Option1_Click(Index As Integer) Select Case Index Case 0
Text1.FontSize = 10 Case 1
Text1.FontSize = 12 Case 2
实验十 一维数组程序设计
Text1.FontSize = 14 Case 3
Text1.FontSize = 16 Case 4
Text1.FontSize = 20 Case 5
Text1.FontSize = 30 End Select End Sub
17
2、程序填空
（1）编写程序，输出杨辉三角形的前n行。运行结果界面如图11-8所示。
11-8 运行结果界面
源代码：
Option Base 1
Private Sub Form_Click() Dim a(20, 20) As Integer Dim i%, j%, k%, n% n = Val(Text1.Text) For i = 1 To n a(i, 1) = 1
【1】 Next i
For i = 3 To n
For j = 2 To i - 1
【2】 Next j Next i
For i = 1 To n
For j = 1 To i
【3】 Next j Print Next i End Sub
（2）随机生成一个3行3列的矩阵，生成的值在[0,50)之间，将生成的矩阵转置。程序运行结果界面如图11-9所示：
实验十 一维数组程序设计
18
11-9 运行结果界面
源代码：
Private Sub Command1_Click() Randomize
Dim a(1 To 3, 1 To 3) As Integer，b(1 To 3, 1 To 3) As Integer Dim i, j, t As Integer Print \转置前矩阵：\For i = 1 To 3 For j = 1 To 3
a(i, j) = Int(Rnd() * 50) + 10 Print a(i, j); Next j Print Next i For i = 1 To 3
For j = 1 To 3
_____【1】______ Next j Next i
Print \转置后矩阵：\For i = 1 To 3 For j = 1 To 3 Print b(i, j); Next j Print
Next i End Sub
（3）求4×5矩阵中周边元素之和，元素值是行、列之和，行、列下标都从1开始。运行结果如图11-10所示。
11-10 运行结果界面
源代码：
Option Base 1
实验十 一维数组程序设计
Private Sub Form_Click() Dim a(4, 5) As Integer s = 0
Print \输出数组：\For i = 1 To 4 For j = 1 To 5 a(i, j) = i + j Print a(i, j); Next j Print Next i
For i = 1 To 4
For j = 1 To 5
________【1】____________ Then s = s + a(i, j) End If
Next j Next i
Print \矩阵外侧元素之和=\
19
End Sub
（4）编写一程序，建立并输出一个5×5的矩阵，该矩阵两条对角线上元素均为1，其余均为2，并打印该矩阵。程序运行结果界面如图11-11所示：
11-11 运行结果界面
源代码：
Private Sub Form_Click() Dim a(5, 5) As Integer Dim i, j As Integer
For i = 1 To 5 For j = 1 To 5
If________【1】_________Then a(i, j) = 1 Else a(i, j) = 2 End If Print a(i, j); Next j Print
实验十 一维数组程序设计
Next i End Sub
20