Calculando juros compostos e montante usando VB.NET

Module Module1
  Sub Main()
    Dim principal As Double = 2000.0
    Dim taxa As Double = 0.03 '3%
    Dim meses As Integer = 3

    Dim montante As Double = principal * _
       Math.Pow((1 + taxa), meses)
    Dim juros As Double = montante - principal

    Console.WriteLine("O total de juros a ser pago é: " _
       & juros)
    Console.WriteLine("O montante a ser pago é: " & montante)

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module

Module Module1
  Sub Main()
    Dim principal As Double = 2000.0
    Dim taxa As Double = 0.03 '3%
    Dim meses As Integer = 3
    Dim anterior As Double = 0.0
    Dim montante, juros As Double

    For i As Integer = 1 To meses Step 1
      montante = principal * Math.Pow((1 + taxa), i)
      juros = montante - principal - anterior
      anterior += juros
      Console.WriteLine("Mês: " & i & " - Montante: " & _
       montante & " - Juros " & juros)
    Next

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module