实验五数组应用程序设计
一、实验目的
1.掌握数组的声明、数组元素的引用。

2.掌握静态数组和动态数组的使用差别。

3.应用数组解决与数组有关的常用算法问题。

4.学会使用控件数组。

二、实验内容
1.设有一个6×6的方阵,其中的元素是随机产生的10 - 99 之间的两位数. 分别求出主对角
线和次对角线上元素之和,以及方阵中最小的元素的位置和值.
要求:
程序运行后，单击“产生”按钮时，输出方阵。

单击“计算”按钮时，输出对角线元素之和，以及最小元素的值与位置。

1）代码设计如下
Dim a(6, 6) As Single
Private Sub Command1_Click()
Dim i%
Dim j%
Cls
For i = 1 To 6
For j = 1 To 6
a(i, j) = Int(Rnd * (99 - 10 + 1)) + 10
Print a(i, j);
Next j
Print
Next i
End Sub
Private Sub Command2_Click()
Dim i%, j%, min%, mini%, minj%, zsum%, csum%
min = a(1, 1): mini = 1: minj = 1
zsum = 0: csum = 0
Cls
For i = 1 To 6
For j = 1 To 6
If (i = j) Then zsum = zsum + a(i, j)
If (i + j = 7) Then csum = csum + a(i, j)
If a(i, j) < min Then
min = a(i, j)
mini = i
minj = j
End If
Next j
Next i
Print "主对角线元素之和" & zsum
Print "次对角线元素之和" & csum
Print "最小元素的值" & min & " 最小元素位置i=" & mini & " j=" & minj
End Sub
2）将运行结果的界面截下来粘贴在下面：
3）调试过程记录（错误情况及改正方法）
2．设计程序：某一维数组共有10个元素，元素的值为（89,76,98,90,67,95,74,89,93,77），当当单击“排序”按钮时，将数组按由大到小的顺序排序后显示在一个标签中。

（参照书本P112，例6.6）
1）代码设计如下
2）将运行结果的界面截下来粘贴在下面
3）调试过程记录（错误情况及改正方法）
3. 利用控件数组设计一个简易的计算器。

要求能够进行整数的加、减、乘、除运算，并将结果显示在标签中。

设计一个清除上次结果的功能，可进行多次运算。

界面如下图所示。

1）以表格形式进行属性设置（写出所有非默认属性值的设置）
2）代码设计
3）调试过程记录（错误情况及改正方法）。