Module Tester Sub Main() Dim amount, principal As Decimal Dim rate As Double Dim year As Integer Dim output As String principal = 1000 rate = 0.05 output = "Year" & vbTab & "Amount on deposit" & vbCrLf For year = 1 To 10 amount = principal * (1 + rate) ^ year output &= year & vbTab & _ String.Format("{0:C}", amount) & vbCrLf Next Console.WriteLine(output) End Sub End Module
Year Amount on deposit 1 $1,050.00 2 $1,102.50 3 $1,157.63 4 $1,215.51 5 $1,276.28 6 $1,340.10 7 $1,407.10 8 $1,477.46 9 $1,551.33 10 $1,628.89