module1.vb

Visual Basic .NET程序设计教程源代码

Imports System.Windows.Forms

Module Module1

    Sub Main()
        Dim amount, prin As Decimal
        Dim rate As Double
        Dim year As Integer
        Dim output As String
        prin = 1000.0
        rate = 0.05
        output = "year" & vbTab & "Amount on deposit" & vbCrLf
        For year = 1 To 10
            amount = prin * (1 + rate) ^ year
            output &= year & vbTab & _
              String.Format("{0:C}", amount) & vbCrLf
        Next
        MessageBox.Show(output, "comp interest", _
        MessageBoxButtons.OK, MessageBoxIcon.Error)


    End Sub

End Module