青岛科技大学VB实验五

1、实验五 数组应用程序设计（3个学时）一 、实验目的1. 掌握数组的声明、数组元素的引用。2. 掌握静态数组和动态数组的使用差别。3. 应用数组解决与数组有关的常用算法问题。4. 学会使用控件数组设计程序。 二 、实验内容1. 输入10个学生的成绩，并将成绩输出到窗体上，每行5个。计算并显示平均分数，然后将高于平均分的分数输出到窗体上。1）代码设计如下Option ExplicitOption Base 1Private Sub Form_Click()Dim score(10) As Single, sum As SingleDim i As IntegerFor i = 1 To 10 sc

2、ore(i) = Val(InputBox("请输入第" & i & "个学生的数学成绩") sum = sum + score(i)Next iPrint "学生的数学成绩是："For i = 1 To 10 Print score(i), If i Mod 5 = 0 Then PrintNext iPrintPrint "数学平均分是：" & sum / 10Print "高于平均分的分数："For i = 1 To 10 If score(i) > sum

3、/ 10 Then Print score(i)Next iEnd Sub2）将运行结果的界面截下来粘贴在下面：3）调试过程记录（错误情况及改正方法）2. 设有一个6×6的方阵，其中的元素是随机产生的10 - 99 之间的两位整数。 分别求出主对角线和次对角线上元素之和，以及方阵中最小的元素的值和位置。 要求：程序运行后，单击“产生”按钮时，输出方阵。单击“计算”按钮时，输出对角线元素之和，以及最小元素的值与位置。1）代码设计如下Option ExplicitOption Base 1Dim a(6, 6), i%, j%, s%, sum%Private Sub Command1_

4、Click()ClsRandomizeFor i = 1 To 6For j = 1 To 6 s = Int(Rnd * (99 - 10 + 1) + 10) a(i, j) = s Print a(i, j);Next jPrintNext iEnd SubPrivate Sub Command2_Click()Dim min, p%, q%For i = 1 To 6For j = 1 To 6 If i = j Then sum = sum + a(i, j) End IfNext jNext iPrint "主对角线的元素之和：" & sumFor i

5、= 1 To 6For j = 1 To 6 If i + j = 7 Then sum = sum + a(i, j) End IfNext jNext iPrint "次对角线的元素之和：" & summin = a(1, 1): p = 1: q = 1For i = 1 To 6 For j = 1 To 6 If a(i, j) < min Then min = a(i, j): p = i: q = j Next j Next i Print "最小元素的值与位置：" & min & "位置为：&quo

6、t; & "（" & p; "，" q; "）"End SubPrivate Sub Form_Load()Command1.Caption = "产生"Command2.Caption = "计算"End Sub2）将运行结果的界面截下来粘贴在下面：3）调试过程记录（错误情况及改正方法）3随机输入N个数据存放在一个数组中，N由用户指定。当单击“输出” 按钮时，将输入的数据输出到一个标签中，当单击“排序”按钮时，将按由大到小的顺序排序后显示在另一个标签中。 1）代码设计如下 Op

7、tion ExplicitDim arr() As Integer, n As IntegerPrivate Sub Command1_Click()Dim i As Integer, j As Integern = Val(InputBox("请输入数组元素个数", "元素个数输入")ReDim arr(n) As IntegerLabel1.Caption = "待排序数组元素为："For i = 1 To narr(i) = Val(InputBox("请输入第" & i & "个数

8、组元素的值", "输入数组元素")Label2.Caption = Label2.Caption & "" & arr(i)nPrivate Sub Command2_Click()Dim i As Integer, j As Integer, p As Integer, t As Integer, k As IntegerFor i = 1 To n p = i For j = i + 1 To n If arr(j) > arr(p) Then p = j Next j If p <> i Then t =

9、 arr(i): arr(i) = arr(p): arr(p) = t End IfNext iPrintLabel3.Caption = "数组排序后顺序为："For i = 1 To nLabel4.Caption = Label4.Caption & "" & arr(i)Next iEnd SubPrivate Sub Form_Load()Command1.Caption = "输出"Command2.Caption = "排序"Label1.Caption = ""Label2.Caption = ""Label3.Caption = "&