Computer Programming Concepts and Visual Basic David I. Schneider

176 Computer Programming Concepts and Visual Basic
[Run and click the command button.]
■ PASSING ARRAYS BETWEEN PROCEDURES
An array that is not dimensioned in the (Declarations) section of (General) but rather is declared
in a procedure is local to that procedure and unknown in all other procedures. However,
an entire local array can be passed to another procedure. The name of the array, followed by
an empty set of parentheses, must appear as an argument in the calling statement, and an array
variable name of the same type must appear as a corresponding parameter in the procedure definition
of the procedure that is to receive the array.
EXAMPLE 4
The following program illustrates passing an array to both a Sub procedure and a Function procedure.
Private Sub cmdDisplayAverage_Click()
‘Pass array to Sub procedure and Function procedure
Dim score(1 To 10) As Integer
Call FillArray(score())
picAverage.Cls
picAverage.Print “The average score is”; Sum(score()) / 10
End Sub
Private Sub FillArray(s() As Integer)
‘Fill array with scores
s(1) = 85
s(2) = 92
s(3) = 75
s(4) = 68
s(5) = 84
s(6) = 86
s(7) = 94
s(8) = 74
s(9) = 79
s(10) = 88
End Sub]
Private Function Sum(s() As Integer) As Integer
Dim total As Integer, index As Integer
‘Add up scores
total = 0
For index = 1 To 10
total = total + s(index)
Next index
Sum = total
End Function
[Run and click the command button.]