Computer Programming Concepts and Visual Basic David I. Schneider

txtCell(Indx(10, 1)).Text = “Food”
txtCell(Indx(11, 1)).Text = “Rent”
txtCell(Indx(12, 1)).Text = “Books”
txtCell(Indx(13, 1)).Text = “Misc”
End Sub
Private Sub SetStructure()
txtCell(Indx(1, 2)).Text = “Fall”
txtCell(Indx(1, 3)).Text = “Winter”
txtCell(Indx(1, 4)).Text = “Spring”
txtCell(Indx(1, 5)).Text = “Summer”
txtCell(Indx(1, 6)).Text = “Total”
txtCell(Indx(1, 6)).ForeColor = vbGreen
txtCell(Indx(2, 1)).Text = “Income”
txtCell(Indx(2, 1)).ForeColor = vbMagenta
txtCell(Indx(6, 1)).Text = “Total”
txtCell(Indx(6, 1)).ForeColor = vbGreen
txtCell(Indx(8, 1)).Text = “Expenses”
txtCell(Indx(8, 1)).ForeColor = vbMagenta
txtCell(Indx(14, 1)).Text = “Total”
txtCell(Indx(14, 1)).ForeColor = vbGreen
txtCell(Indx(16, 1)).Text = “Balance”
txtCell(Indx(16, 1)).ForeColor = vbGreen
incStartRow = 3
incStopRow = 5
incTotRow = 6
expStartRow = 9
expStopRow = 13
expTotRow = 14
balRow = 16
startCol = 2
stopCol = 5
totCol = 6
End Sub
A Case Study: Calculating with a Spreadsheet 207
Private Sub ShowBalances(itot() As Single, etot() As Single)
Dim col As Integer
For col = startCol To stopCol
txtCell(Indx(balRow, col)).Text = FormatNumber(itot(col) - etot(col), 0)
Next col
End Sub
Private Sub ShowGrandTotals(itot() As Single, etot() As Single)
Dim col As Integer, iTotal As Single, eTotal As Single
‘Compute and display grand totals for income, expenses, and balance
iTotal = 0
eTotal = 0
For col = startCol
To stopCol
iTotal = iTotal + itot(col)
eTotal = eTotal + etot(col)
Next col
txtCell(Indx(incTotRow, totCol)) = FormatNumber(iTotal, 0)
txtCell(Indx(expTotRow, totCol)) = FormatNumber(eTotal, 0)
txtCell(Indx(balRow, totCol)) = FormatNumber(iTotal - eTotal, 0)
End Sub