Computer Programming Concepts and Visual Basic David I. Schneider

txtFinal.Text = “”
picGrades.Print “Student added.”
End Sub
Private Sub cmdSemGrade_Click()
Dim i As Integer, grade As String
picGrades.Cls
For i = 1 To section.Count
picGrades.Print section.Item(i).Name; _
Tab(28); section.Item(i).SocSecNum(); _
Tab(48); section.Item(i).SemGrade
Next i
End Sub
Private Sub cmdQuit_Click()
End
End Sub
Private Sub Form_Load()
‘Initially, regular student should be selected
optReg = True
End Sub
[Run, type in data for Al Adams, press the Add Student button, repeat the process for Brittany Brown and
Carol Cole, press the Calculate Grades button, and then enter data for Daniel Doyle.]
■ KEYS
The items in a collection are automatically paired with the numbers from 1 on. Visual Basic
provides an alternative device for accessing a specific item. At the time an item is added to a
collection, we can associate a key for the item via a statement of the form
collectionName.Add objectName, keyString
After that, the object can be referred to as collectionName.Item(keyString).
A property of the object can be accessed with
collectionName.Item(keyString).property
Collections and Events 369