VisualBasic程序设计教程刘莲英第7章数组课件教学.pptVIP

7.1 引言 1．为什么使用数组 【例7-1】设计一个程序，将n个人某门课程的成绩输入计算机，求平均成绩和高于平均成绩的人数。 如果不使用数组，以5个人的成绩为例，使用A1、A2、A3、A4、A5来存放5个成绩，程序代码如下： Private Sub Form_Click() Dim N%, S!, Ave!, A1!, A2!, A3!, A4!, A5! 1．为什么使用数组（续） A1 = Val(InputBox(Enter A1 )) ... 此处省略了部分语句 A5 = Val(InputBox(Enter A5 )) S = A1 + A2 + A3 + A4 + A5 Ave = S / 5 If A1 Ave Then N = N + 1 … 此处省略了部分语句 If A5 Ave Then N = N + 1 Print Ave, N End Sub 1．为什么使用数组（续） Print Ave = S / 10 For i = 1 To 10 If A(i) Ave Then N = N + 1