7第七章数组精选.ppt

第7章 数组 第七章 数组 分析： 1）10名学生的成绩已知，如何表示这个已知？ ----定义数组，为其进行赋初值(How)； 2） 分别输出10名学生的成绩 3）统计成绩大于80分的人数 ----比较For Next循环和For Each Next 【例7.7】现有10名学生成绩，统计成绩大于80分的人数。 第七章 数组 Option Base 1 Private Sub Form_Load() Show Const N = 10 Dim Count As Integer ‘ Count 变量用于统计80分人数 Dim one, Score ’ one和Score都是Variant类型 Score = Array(67, 78, 45, 90, 85, 63, 93, 82, 48, 88) 数组初始化 Array函数只适用于对一维数组进行初始化！ 第七章 数组 Count = 0 输出部分 Print 成绩分别是： For I=1 to 10 Print score(I); ‘ 输出每个元素 IF score(I) 80