Visual Studio Basic_41 元金と利率から元利合計が2倍になるのは何年後？

ちょっと気まぐれで、元金と利率から元利合計が2倍になるのは何年後？という悪趣味な計算をしてみました。ローンは怖いですよ〜。

レイアウトは上の様にしました。

L=Label

TB=TextBox

B=Button

ソースの「-----------------」は区切り線なので記述の必要はありません。

青字は自動入力部分で修正の必要はありません。 黒字が入力部分です。 緑字はコメント文なので記述の必要はありません。

------------------

Public Class Form1

    Private Sub Button1_Click(sender As Object,

        e As EventArgs) Handles Button1.Click

        ' 入力値を取得

        Dim principal As Double = Convert.ToDouble(TextBox1.Text)

        Dim rate As Double = Convert.ToDouble(TextBox2.Text) / 100

        ' 経過年数と元利合計を計算

        Dim years As Integer = 0

        Dim amount As Double = principal

        While amount <= 2 * principal

            amount += amount * rate

            years += 1

        End While

        ' 結果を表示

        Label5.Text = years.ToString()

        Label7.Text = amount.ToString("F2")

    End Sub

    Private Sub Button2_Click(sender As Object,

        e As EventArgs) Handles Button2.Click

        TextBox1.ResetText()

        TextBox2.ResetText()

        Label5.ResetText()

        Label7.ResetText()

    End Sub

    Private Sub Button3_Click(sender As Object,

        e As EventArgs) Handles Button3.Click

        End

    End Sub

End Class

------------------

調べて見ると、現在の金利は・・・

消費者金融カードローン（3.0%～18.0％）

銀行カードローン（1.8％～14.6％）

クレジットカードのキャッシング機能（7.8％～18.0％）

のようです。

出来るだけ早く返した方が良いですね。