VB6.0基础教程之第8章数组.pptVIP

* * * * * * * * * * * * * * * * * 第八章 数 组 8.1 数组的概念 8.2 静态数组与动态数组 8.3 数组的基本操作 8.4 数组的初始化 8.5 数组的应用举例 8.6 控件数组 8.1 数组的概念 1. 引例 例：求100个学生的平均成绩，并统计高于平均分的人数。用简单变量和循环，求平均成绩程序段如下： aver = 0 For i = 1 To 100 mark = InputBox(输入学生成绩) aver = aver + mark Next i aver = aver / 100 由于循环体内变量mark只能放一个学生的成绩，无法统计高于平均分的人数。若用简单变量保存100个学生的成绩，则需定义100个变量和使用100句输入语句。由此引入了数组。 数组的概念 用数组解决问题的程序如下： Private Sub Command1_Click() Dim mark(1 To 100) As Integer 声明有100个元素的数组mark Dim aver!, overn%, i% aver = 0 For i = 1 To 100 输入成绩，求分数和 mark(i) = I