第4章 组及应用.pptVIP

引例 例题4-1 求一个班学生的平均成绩，然后统计高于平均分的人数。 Private Sub Form_Click() Dim i As Integer, mark As Double, j As Integer, aver As Double aver = 0 j = Val(InputBox（请输入班级的学生人数 , 班级人数)) For i = 1 To j mark = Val(InputBox(请输入第 i 位学生的成绩：, 成绩输入窗口)) aver = aver + mark Next i aver = aver / j Print 平均成绩为：; aver End Sub 解决此问题的根本方法，引入数组，始终保持输入的数据，一次输入，多次使用。 4.1 概 述 一、数组的定义： 数组不是一种数据类型，而是一组相同类型的变量的集合，用一个统一的名字（数组名）代表逻辑上相关的一批数据，每个元素用下标变量来区分；下标变量代表元素在数组中的位置。数组必须先声明后使用。 维数是指一个数组中的元素需要用多少个下标变量来确定。 如 Dim A(1 To 100) As Integer表示一个包含100个数组元素、数组名为A、数据类型为整型的数组。而B(3，2)表示二维数组B中第3行2列上的那个元素。 一维数组形式: 说明：