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 1
2、0score(i) = Val(InputBox(“请输入第“ Next jPrintNext iEnd SubPrivate Sub Command2_Click()Dim min, p%, q%For i = 1 To 6For j = 1 To 6If i = j Thensum = sum + a(i, j)End IfNext jNext iPrint “主对角线的元素之和：“ & sumFor i = 1 To 6For j = 1 To 6If i + j = 7 Thensum = sum + a(i, j)End IfNext jNext iPrint “次对角线的元素之和：
3、“ & summin = a(1, 1): p = 1: q = 1For i = 1 To 6For j = 1 To 6If a(i, j) arr(p) Then p = jNext jIf p i Thent = arr(i): arr(i) = arr(p): arr(p) = tEnd 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 = “Label4.Caption = “End Sub2）将运行结果的界面截下来粘贴在下面3）调试过程记录（错误情况及改正方法）4 使用控件数组设计如图所示简易计算器，能够实现基本的四则运算。设计的初始界面如图一所示，运行结果如图二所示。 （选作实验）图一 图二
