实验五 数组应用程序设计（3个学时）

一 、实验目的

1. 掌握数组的声明、数组元素的引用。 2. 掌握静态数组和动态数组的使用差别。 3. 应用数组解决与数组有关的常用算法问题。 4. 学会使用控件数组。

二 、实验内容

1. 设计一个窗体，在窗体的单击事件中编程实现：

输出5行5列方阵，使对角线上元素为1，其他元素为0。

1）代码设计如下

Private Sub Form_Click()

Dim a(1 To 5, 1 To 5) As Single For i = 1 To 5 For j = 1 To 5 If i = j Then a(i, j) = 1 Else

a(i, j) = 0 End If Next j Next i

For i = 1 To 5 For j = 1 To 5

CurrentX = j * 300 CurrentY = i * 300 Print a(i, j) Next j Next i End Sub

2）将运行结果的界面截下来粘贴在下面：

3）调试过程记录（错误情况及改正方法） 一开始没有写CurrentX = j * 300 CurrentY = i * 300 结果整个在第一列输出了

改正：添加CurrentX = j * 300 CurrentY = i * 300

2. 设有一个6×6的方阵,其中的元素是随机产生的10 - 99 之间的两位数. 分别求出主对角线和次对角线上元素之和,以及方阵中最小的元素的位置和值. 要求:

程序运行后，单击“产生”按钮时，输出方阵。单击“计算”按钮时，输出对角线元素之和，以及最小元素的值与位置。

1） 代码设计如下

Dim A(1 To 6, 1 To 6) As Single Private Sub Command1_Click() For i = 1 To 6 For j = 1 To 6 Randomize

A(i, j) = Int(99 * Rnd + 1) Next j Next i

For i = 1 To 6 For j = 1 To 6

CurrentX = j * 300

CurrentY = i * 300 Print A(i, j) Next j Next i End Sub

Private Sub Command2_Click()

Dim b As Single, c As Single, d As Single b = A(1, 1) For i = 1 To 6 For j = 1 To 6 If b > A(i, j) Then b = A(i, j)

Text5.Text = (\ End If If i = j Then c = c + A(i, j) End If

If i + j = 6 Then d = d + A(i, j) End If Next j Next i

Text2.Text = c Text3.Text = d Text4.Text = b End Sub

2）将运行结果的界面截下来粘贴在下面：