Computer Programming Concepts and Visual Basic David I. Schneider

EXAMPLE 7
The following program produces essentially the first two columns of the table in Example 5 of Section
2.5. However, Format is used to right-justify the expense categories and to align the numbers.
Object Property Setting
frmExpenses Caption Public 2-year College Expenses
cmdDisplay Caption Display Expenses
picTable Font.Name Courier
Private Sub cmdDisplay_Click()
Dim fmt1 As String, fmt2 As String
Dim col1 As String, col2 As String
‘Average expenses of commuter students (1995-96)
picTable.Cls
picTable.Print Tab(19); “Pb 2-yr”
picTable.Print
fmt1 = “@@@@@@@@@@@@@@@@@” ‘17 @ symbols
fmt2 = “@@@@@@” ‘6 @ symbols
col1 = Format(“Tuition & Fees”, fmt1)
col2 = FormatNumber(1387, 0)
col2 = Format(col2, fmt2)
picTable.Print col1; Tab(19); col2
col1 = Format(“Books & Supplies”, fmt1)
col2 = FormatNumber(577, 0)
col2 = Format(col2, fmt2)
picTable.Print col1; Tab(19); col2
col1 = Format(“Board”, fmt1)
col2 = FormatNumber(1752, 0)
col2 = Format(col2, fmt2)
picTable.Print col1; Tab(19); col2
col1 = Format(“Transportation”, fmt1)
col2 = FormatNumber(894, 0)
col2 = Format(col2, fmt2)
picTable.Print col1; Tab(19); col2
col1 = Format(“Other Expenses”, fmt1)
col2 = FormatNumber(1142, 0)
col2 = Format(col2, fmt2)
picTable.Print col1; Tab(19); col2
picTable.Print Tab(19); “———”
col1 = Format(“Total”, fmt1)
col2 = FormatNumber(5752, 0)
col2 = Format(col2, fmt2)
picTable.Print col1; Tab(19);
col2
End Sub
[Run, and then click the command button.]
Tuition & Fees
Pb 2-Yr
1,387
Books & Supplies 577
Board 1,752
Transportation 894
Other Expenses 1,142
-----
Total 5,752
Built-In Functions 63