程序 2 ：
Dim aver As Integer, mark(1 To 35) As Integer
For i = 1 To 35
mark(i) = InputBox(" 输入第 " & i & " 位学生的成绩 ",
" 数据输入 ")
If mark(i) > maxmark Then maxmark = mark(i)
aver = aver+mark(i)
Next
Print aver = aver/35; maxmark
从表面上看，两端程序差别不大，但是后者引入了数组 m
ark(1 to 35) ，这样，每一个学生的成绩都保留在数组中，
可以随时加以调用。
