Computer Programming Concepts and Visual Basic David I. Schneider

174 Computer Programming Concepts and Visual Basic
Private Sub cmdSummarize_Click()
Dim i As Integer
‘List stock companies that have been recorded
picStocks.Cls
picStocks.Print “You own the following”; counter; “stocks.”
For i = 1 To counter
picStocks.Print stock(i) & “ ”;
‘Move to new line after every 5 stocks
If Int(i / 5) = i / 5 Then
picStocks.Print
End If
Next i
End Sub
Private Sub Form_Load()
‘Initialize count of companies
counter = 0
End Sub
[Run, type in eleven companies (press Record Name after each company) and press Summarize.]
Suppose you have two ordered lists of customers (possibly with some customers on both
lists) and you want to consolidate them into a single ordered list. The technique for creating
the third list, called the merge algorithm, is as follows.
1. Compare the two names at the top of the first and second lists.
(a) If one name alphabetically precedes the other, copy it onto the third list and
cross it off its original list.
(b) If the names are the same, copy the name onto the third list and cross out
the name from the first and second lists.
2. Repeat Step 1 with the current top names until you reach the end of either list.
3. Copy the names from the remaining list onto the third list.
EXAMPLE 3
The following program stores two lists of names in arrays and merges them into a third list. Although at
most 10 names will be placed into the third array, duplications will reduce this number. Because the variable
r identifies the next position to insert a name in the third array, r – 1 is the number of names in the
array.
‘Create arrays to hold list of names
Dim list1(1 To 5) As String, list2(1 To 5) As String
Dim newList(1 To 10) As String