Computer Programming Concepts and Visual Basic David I. Schneider

224 Computer Programming Concepts and Visual Basic
NumberOfRecords = n
End Function
Private Sub ReadData(nom() As String, yearBorn() As Integer, numPeople As _
Integer)
Dim index As Integer
‘Read data from file into arrays
Open “YOB.TXT” For Input As #1
For index = 1 To numPeople Input #1, nom(index), yearBorn(index)
Next index
Close #1
End Sub
Private Sub ShowData(nom() As String, yearBorn() As Integer, numPeople As _
Integer)
Dim index As Integer
‘Display the sorted list
picShowData.Cls
For index = 1 To numPeople
picShowData.Print nom(index), yearBorn(index)
Next index
End Sub
Private Sub SortData(nom() As String, yearBorn() As Integer, numPeople As
Integer)
Dim passNum As Integer, index As Integer
‘Bubble sort arrays by year of birth
For passNum = 1 To numPeople - 1
For index = 1 To numPeople - passNum
If yearBorn(index) > yearBorn(index + 1) Then
Call SwapData(nom(), yearBorn(), index)
End If
Next index
Next passNum
End Sub
Private Sub SwapData(nom() As String, yearBorn() As Integer, index As Integer)
Dim stemp As String, ntemp As Integer
‘Swap names and years
stemp = nom(index)
nom(index) = nom(index + 1)
nom(index + 1) = stemp
ntemp = yearBorn(index)
yearBorn(index) = yearBorn(index + 1)
yearBorn(index + 1) = ntemp
End Sub
Private Sub WriteData(nom() As String, yearBorn() As Integer, numPeople As
Integer)
Dim index As Integer
‘Write data back into file
Open “YOB.TXT” For Output As #1
For index = 1 To numPeople
Write #1, nom(index), yearBorn(index)
Next index