chap数组-13.pdf

第10讲 第六章 数 组 1 2 主要内容 6.1 数组的概念 6.1 数组的概念 6.2 静态数组及其声明 6.2 静态数组及其声明 6.3 动态数组及其声明 6.3 动态数组及其声明 6.4 数组的基本操作 6.4 数组的基本操作 6.5 控件数组 6.5 控件数组 6.6 自定义数据类型 6.6 自定义数据类型 6.7 数组应用 6.7 数组应用 3 6.1 数组的概念 1.引例 统计3名学生的平均成绩,并打 印出高于平均分的人数。 定义数组X(i)，存放100个成绩 可以定义三个变量x,y,z, 将人数改为10人。 Aver=(x+y+z)/3 将人数改为100人。 S为成绩总和，初值为0 k=0 求平均分N-S图： 求高于平均分的人数： I=1 to 100 输入成绩 X(I) Dim x(1 to 100) as Integer If xaver then k=k+1 J=0 s = 0 S为成绩总和，初值为0 S=S+X(I) For i = 1 To 100 If yaver then k=k+1 k=1 to 10 I=1 to 10 AVER=S/100 s = 0 x(i) = InputBox(“输入第 + str(i) + 位学生的成绩) If zaver then k=k+1 s = s + x(i) 输入成绩 X J=0 For i = 1 To 100 输入成绩 X Print aver; k Next i Xaver k=0 to 100 x = InputBox(“输入第 + str(i) + 位学生的成绩) T F aver = s / 100 T X(k)aver F S=S+X j=0 s = s+ x J=J+1 Next i J=J+1 For k = 1 To 100 AVER=S/10 输出 J aver = s