Calculating compound interest. : For « Statements « VB.Net Tutorial

1. VB.Net Tutorial
2. Statements
3. For

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