青岛科技大学VB上机答案-实验五

实验五 数组应用程序设计（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 = ("(" & i & "," & j & ")")

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）将运行结果的界面截下来粘贴在下面：

3）调试过程记录（错误情况及改正方法）

错误：没有加randomize

每次都产生相同的随机数序列

改正 添加randomize

3．设计程序：某一维数组共有7个元素，元素的值有键盘输入，当单击“输入” 按钮时，将原数组输出到一个标签中，当单击“排序”按钮时，将数组按由小到大的顺序排序后显示在另一个标签中。

1）代码设计如下

Dim a(1 To 7) As Single

Private Sub Command1_Click()

For i = 1 To 7

Label1.Caption = Label1.Caption & Str(a(i))

Next i

End Sub

Private Sub Command2_Click()

Dim b As Single, c As Single, d As Single

For b = 1 To 6

For i = 1 To 6

If a(i) > a(i + 1) Then

c = a(i)

a(i) = a(i + 1)

a(i + 1) = c

End If

Next i

Next b

For i = 1 To 7

Label2.Caption = Label2.Caption & Str(a(i))

Next i

End Sub

Private Sub Form_Click()

For i = 1 To 7

a(i) = InputBox("请输入数组的值", a(i), "")

Next i

End Sub

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

3）调试过程记录（错误情况及改正方法）