lstOutput.Items.Clear() 'clear listbox
Dim intCount As Integer
Dim dblLoan As Double = 563
Dim strZone As String = "{0,-16} {1,10}" 'make zone
lstOutput.Items.Add(String.Format(strZone, "Starting Balance", FormatCurrency(dblLoan))) 'show starting balance
For intCount = 1 To 5
dblLoan = dblLoan * 1.01 - 116 'find balance
If dblLoan < 0 Then
dblLoan = 0
End If
lstOutput.Items.Add(String.Format(strZone, "After Month " & _
intCount, FormatCurrency(dblLoan))) 'show balance after each month
Next
lstOutput.Items.Clear() 'clear listbox
Dim intCount As Integer 'declare variables
Dim dblPrice As Double
Dim dblQuantity As Double = 80
Dim strZone As String = "{0,-15}{1,10}{2,10}" 'make zone
dblPrice = 20 - 0.1 * dblQuantity
lstOutput.Items.Add(String.Format(strZone, "Year", "Quantity", "Price")) 'show row
lstOutput.Items.Add("")
lstOutput.Items.Add(String.Format(strZone, "Starting Year", dblQuantity,
FormatCurrency(dblPrice))) 'd