实验五数组应用程序设计(3个学时).doc

实验五 数组应用程序设计（3个学时） 一 、实验目的 掌握数组的声明、数组元素的引用。 掌握静态数组和动态数组的使用差别。 应用数组解决与数组有关的常用算法问题。 学会使用控件数组。 二 、实验内容 1. 设计一个窗体，在窗体的单击事件中编程实现： 输出5行5列方阵，使对角线上元素为1，其他元素为0。 1）代码设计如下 Private Sub Form_Click() Dim a(1 To 5, 1 To 5) For i = 1 To 5 For j = 1 To 5 a(i, j) = 0 If i = j Then a(i, j) = 1 End If If i + j = 1 + 5 Then a(i, j) = 1 End If Next j Next i For i = 1 To 5 For j = 1 To 5 Print a(i, j); Next j Print Next i End Sub 2）将运行结果的界面截下来粘贴在下面： 3）调试过程记录（错误情况及改正方法） 2. 设有一个6×6的方阵,其中的元素是随机产生的10 - 99 之间的两位数. 分别求出主对角线和次对角线上元素之和,以及方阵中最小的元素的位置和值. 要求: 程序运行后，单击“产生”按钮时，输出方阵。单击“计算”按钮时，输出对角线元素之和，以及最小元素的值与位置。 1）代码设计如下 Dim a(1 To 6, 1 To 6) Private Sub Command1_Click() Dim i, j As Integer For i = 1 To 6 For j = 1 To 6 Randomize a(i, j) = Int(90 * Rnd + 10) Next j Next i For i = 1 To 6 For j = 1 To 6 Print a(i, j); Next j Print Next i End Sub Private Sub Command2_Click() Dim min As Integer, x As Integer, y As Integer For i = 1 To 6 For j = 1 To 6 If i = j Then s = s + a(i, j) End If If i + j = 7 Then t = t + a(i, j) End If Next j Next i Print 主对角线之和=; s Print 次对角线之和=; t min = a(1, 1) For i = 1 To 6 For j = 1 To 6 If min a(i, j) Then min = a(i, j) x = i y = j End If Next j Next i Print 最小元素的值= min Print 最小元素所在位置为: x 行 y 列 End Sub 2）将运行结果的界面截下来粘贴在下面： 3）调试过程记录（错误情况及改正方法） 1.如果两个实践过程都要用到一个数组声明，最好写在窗体的通用声明里 2. 不要在两个事件中重复写到一个过程，容易导致前后不一致 3．设计程序：某一维数组共有7个元素，元素的值有键盘输入，当单击“输入” 按钮时，将原数组输出到一个标签中，当单击“排序”按钮时，将数组按由小到大的顺序排序后显示在另一个标签中。 1）代码设计如下 Dim n(7) As Integer Private Sub Command1_Click() For i = 1 To 7 n(i) = Val(InputBox(请输入 Str(i) 个元素的值, 元素排序, )) Label1.Caption = Label1.Caption Str(n(i)) Next i End Sub Private Sub Command2_Click() Dim t As Integer For i = 1 To 6 For j = i + 1 To 7 If n(i) n(j) Then t = n(i) n(i) = n(j) n(j) = t End If Next j Next i For i = 1 To 7 Label2.Caption = Label2.Caption Str(n(i)) Next i End Sub 2）将运行结果的界面截下来粘贴在下面 3）调试过程记录（错误情况及改正方法）