实验五 数组应用程序设计

实验五数组应用程序设计

一、实验目的

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）调试过程记录（错误情况及改正方法）