form1.vb

来自「計算複利息,初學者看了一定明白,因為十1分易學易明易睇」· VB 代码 · 共 18 行

Public Class Form1
    Dim FV, PV, AR, ARQ, NY, CP As Decimal
    Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click

        PV = txt1.Text
        AR = txt2.Text
        ARQ = IIf(AR < 1, AR, AR / 100)
        NY = txt3.Text
        CP = txt4.Text
        FV = PV * (1 + ARQ / CP) ^ (NY * CP)
        lbl6.Text = Format(FV, "HK$#.00")
    End Sub

    Private Sub lbl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbl.Click

    End Sub
End Class