VisualBasic程序设计实用教程于秀敏第5章数组课件教学.pptVIP

第5章 数组 5.1 数组概述 5.2 静态数组 5.3 动态数组 5.4 数组的基本操作 5.5 数组的应用举例 5.6 用户自定义数据类型 5.1 数组概述 1．引例 例5.1 统计某班30名同学计算机课程的平均成绩及高于平均分的人数。 计算平均成绩可以通过使用简单变量和循环结构来完成，程序代码如下： Dim aver As Single Dim mark As Integer, i As Integer, sum As Integer sum = 0 For i = 1 To 30 mark = Val(InputBox(输入 i 位学生的成绩)) sum = sum + mark Next i aver = sum / 30 思考：如何统计高出平均成绩的人数？ 用数组解决求30人的平均分和高于平均分的人数，程序代码如下： Private Sub Form_Click() Dim mark(1 To 30) As Integer 数组声明，mark数组有30个元素 Dim aver As Single, i As Integer, sum As Integer sum = 0 For i = 1 To 30 本循环结构输入成绩，求分数和 mark(i) = Val(InputBox(输入 i 位学生的成绩))