Computer Programming Concepts and Visual Basic David I. Schneider

FIGURE 6-5 Flowchart for a Search of an Ordered Array
■ USING PART OF AN ARRAY
In some programs, we must dimension an array before knowing how many pieces of data are
to be placed into it. In these cases, we dimension the array large enough to handle all reasonable
contingencies. For instance, if the array is to hold exam grades, and classes sizes vary from
5 to 100 students, we use a statement such as Dim grades(1 To 100) As Integer. In such situations
we must employ a counter variable to keep track of the number of values actually
stored in the array. We create this counter variable using a Dim statement in the (Declarations)
section of (General) so that all procedures will have access to it.
EXAMPLE 2
The following program requests a list of companies and then displays them along with a count.
‘Demonstrate using only part of an array
Dim stock(1 To 100) As String
Dim counter As Integer
Private Sub cmdResult_Click()
If (counter < 100) Then
counter = counter + 1
stock(counter) = txtCompany.Text
txtCompany.Text = “”
txtCompany.SetFocus
Else
MsgBox “No space to record additional companies.”, , “”
txtCompany.Text = “”
cmdSummarize.SetFocus
End If
End Sub
Using Arrays 173