Computer Programming Concepts and Visual Basic David I. Schneider

178 Computer Programming Concepts and Visual Basic
Call DisplayArray(spokLang(), numSpokLangs)
End Sub
Private Sub DisplayArray(lang() As String, howMany As Integer)
Dim i As Integer
‘Display the languages in the array
picAllLang.Cls
For i = 1 To howMany
picAllLang.Print lang(i) & “ ”;
Next i
End Sub
Private Sub Form_Load()
‘Fill computer language array from COMPLANG.TXT
numCompLangs = 0 Open “COMPLANG.TXT” For Input As #1
Do While (Not EOF(1)) And (numCompLangs < 20)
numCompLangs = numCompLangs + 1
Input #1, compLang(numCompLangs)
Loop
Close #1
‘Fill spoken language array from SPOKLANG.TXT
numSpokLangs = 0
Open “SPOKLANG.TXT” For Input As #1
Do While (Not EOF(1)) And (numSpokLangs < 20)
numSpokLangs = numSpokLangs + 1
Input #1, spokLang(numSpokLangs)
Loop
Close #1
End Sub
[Run, type in German, and click Add to Spoken List.]
[Type in FORTRAN and click Add to Computer List.]
COMMENTS
1. In Examples 1 and 5 we searched successive elements of an ordered list beginning
with the first element. This is called a sequential search. An efficient
alternative to the sequential search is the binary search, which is considered in
the next section.
2. A single element of an array can be passed to a procedure just like any ordinary
numeric or string variable.
Private Sub cmdButton_Click()
Dim num(1 To 20) As Integer