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