Computer Programming Concepts and Visual Basic David I. Schneider

166 Computer Programming Concepts and Visual Basic
‘Analyze exam scores
total = 0
For student = 1 To 8
total = total + score(student)
Next student
average = total / 8
‘Display all names with above-average grades
picTopStudents.Cls
For student = 1 To 8
If score(student) > average Then
picTopStudents.Print nom(student)
End If
Next student
End Sub
[Run, and click the command button.]
FIGURE 6-3 Arrays Created by Example 3
In Example 3, the number of students to be processed had to be known at the time the
program was written. In actual practice, the amount of data that a program will be processing
is not known in advance. Programs should be flexible and incorporate a method for handling
varying amounts of data. Visual Basic makes this possible with the statement
ReDim arrayName (1 to n) As varType
which can use variables or expressions when indicating the subscript range. However, ReDim
statements can only be used inside procedures.
EXAMPLE 4
The following program reworks Example 3 for the case when the amount of data is not known in advance.
Private Sub cmdShow_Click()
Dim numStudents As Integer, nTemp As String, sTemp As Integer
Dim student As Integer, total As Integer, average As Single