Computer Programming Concepts and Visual Basic David I. Schneider

54 Computer Programming Concepts and Visual Basic
Dim a As String, b As String, c As String, d As String
a = “North”
b = “to”
c = “the”
d = “future.”
picBox.Print a, b, c, d
picBox.Print “12345678901234567890123456789012345678901234567890”
EXAMPLE 5
The following program uses Print zones to organize expenses for public and private schools into columns
of a table. The data represent the average expenses for 1995–96. (The Font setting for picTable is the
default font MS Sans Serif.)
Private Sub cmdDisplay_Click()
picTable.Cls
picTable.Print “ ”, “Pb 2-yr”, “Pr 2-yr”, “Pb 4-yr”, “Pr 4-yr”
picTable.Print
picTable.Print “Tuit & Fees”, 1387, 6350, 2860, 12432
picTable.Print “Bks & Suppl”, 577, 567, 591, 601
picTable.Print “Board”, 1752, 1796, 1721, 1845
picTable.Print “Trans”, 894, 902, 929, 863
picTable.Print “Other Exp”, 1142, 1220, 1348, 1169
picTable.Print “ ”, “-------”, “-------”, “-------”, “-------”
picTable.Print “Total”, 5752, 10835, 7449, 16910
End Sub
[Run and then click the command button. The following is displayed in the picture box.]
Pb 2-yr Pr 2-yr Pb 4-yr Pr 4-yr
Tuit & Fees 1387 6350 2860 12432
Bks & Suppl 577 567 591 601
Board 1752 1796 1721 1845
Trans 894 902 929 863
Other Exp 1142 1220 1348 1169
------ ------ ------ ------
Total 5752 10835 7449 16910
■ TAB FUNCTION
If an item appearing in a Print statement is preceded by
Tab(n);
where n is a positive integer, that item will be displayed (if possible) beginning at the nth position
of the line. (Exceptions are discussed in Comment 10.)
EXAMPLE 6
The following program uses the Tab function to organize data into columns of a table. The data represent
the number of bachelor’s degrees conferred (in units of 1000). (Source: National Center of Educational
Statistics.)
Private Sub cmdDisplay_Click()
picTable.Cls
picTable.Print Tab(10); “1970-71”; Tab(20); ”1980-81”; Tab(30); “1990-91”
picTable.Print
picTable.Print ”Male”; Tab(10); 476; Tab(20); 470; Tab(30); 490