Computer Programming Concepts and Visual Basic David I. Schneider

EXAMPLE 3
The following program processes records.
‘In BAS Module
Public Type collegeData
nom As String * 30
state As String * 2
yearFounded As Integer
End Type
’In Form code
Private Sub cmdProcess_Click()
Dim century As Integer, when As String
‘Demonstrate use of records
picResult.Cls
Dim college As collegeData
college.nom = txtCollege.Text
college.state = txtState.Text
college.yearFounded = Val(txtYear.Text)
century = 1 + Int(college.yearFounded / 100)
picResult.Print RTrim(college.nom); “ was founded in the” & Str(century);
picResult.Print “th century in ”; college.state
Dim university As collegeData
university.nom = “M.I.T.”
university.state = “MA”
university.yearFounded = 1878
If college.yearFounded < university.yearFounded Then
when = “before ”
Else
when = “after ”
End If
picResult.Print RTrim(college.nom); “ was founded ”;
picResult.Print when; RTrim(university.nom)
End Sub
[Run, type the following data into text boxes, and press the command button.]
Dim statements can be used in procedures to declare a local record variable. When
records are passed to and from procedures, the parameter in the Private Sub or Function
statement must have the form
parameter As recordType
User-Defined Data Types 249