Private Sub Form Load Dim d()As Integer Dim iAs Integer, totalS Single, average As Single Show For i=l To 5 输入成绩 d()=Val( InputBox("请输入第"&Str(i)& "个学生的成绩",’"输入成绩")) Next i total= o Fori= 1 To 5 计算总分和平均分 total= total+ d(i) Next i average= total /5 Print"总分:"& total Print"平均分:"& Format( average,"##,0") End Sub
Private Sub Form_Load() Dim d(5) As Integer Dim i As Integer, total As Single, average As Single Show For i = 1 To 5 '输入成绩 d(i) = Val(InputBox("请输入第" & Str(i) & _ "个学生的成绩", "输入成绩")) Next i total = 0 For i = 1 To 5 '计算总分和平均分 total = total + d(i) Next i average = total / 5 Print "总分：" & total Print "平均分：" & Format(average, "##.0") End Sub
程序中,先通过Dim语句为数组d定义维数及下 标范围,也即为数组安排一块连续的内存存储区, 但这并不意味着内存里该数组已建立了应有的内容 本例中输入数组中的数据是由 InputS0x函数来 实现的,共循环了五次,输入的五个数依次赋值给 下标变量d(1)~d(5) 建立了数组中的数据后,就可以按要求进行处理
程序中，先通过Dim语句为数组d定义维数及下 标范围，也即为数组安排一块连续的内存存储区， 但这并不意味着内存里该数组已建立了应有的内容 本例中输入数组中的数据是由InputBox函数来 实现的，共循环了五次，输入的五个数依次赋值给 下标变量d(1)～d(5) 建立了数组中的数据后，就可以按要求进行处理
例62输入10名学生的成绩,求出最高分和最低分 (1)创建应用程序的用户界面和设置对象属性 For1 回囟 ∷∷Labe11 ∷:: 查找 ∷∷∷∷:: ∷∷::::: ∷∷∷∷∷∷
(1)创建应用程序的用户界面和设置对象属性 例6.2 输入10名学生的成绩，求出最高分和最低分
(2)编写程序代码 功能要求:通过 Array函数输入10个分数;单击“查找”按 钮( Command2)后,开始查找最高分和最低分,找到后显示在标 签 Labell上 Option base 1 Dim score asⅤ ariant Private Sub Form Load Labell Caption="单击“査找”按钮开始查找最高分和最低 分 心 Score= Array(89,96,81,67,79,90,63,85,95,83) nd sub
功能要求：通过Array函数输入10个分数；单击“查找”按 钮(Command2)后，开始查找最高分和最低分，找到后显示在标 签Label1上 Option Base 1 Dim score As Variant Private Sub Form_Load() Label1.Caption = "单击“查找”按钮开始查找最高分和最低 分" score = Array(89, 96, 81, 67, 79, 90, 63, 85, 95, 83) End Sub (2) 编写程序代码
Private Sub Command1 Click Dim max As integer min as integer max=score(l) 设定初值 min score Fori=2 To 10 If max score(i) Then 找最高分 max=score(i) End if If min score(i Then 找最低分 min=score(i) End If Next Chr(13)起换行作用 Labell Caption="最高分:"+Str(max)+ Chr(13)+"最低分:"+Str(min) End sub
Private Sub Command1_Click() Dim max As Integer, min As Integer max = score(1) '设定初值 min = score(1) For i = 2 To 10 If max < score(i) Then '找最高分 max = score(i) End If If min > score(i) Then '找最低分 min = score(i) End If Next i 'Chr(13)起换行作用 Label1.Caption = "最高分：" + Str(max) + _ Chr(13) + "最低分：" + Str(min) End Sub