vb.net - VB.NET を使用してローン償却テーブルを作成中にループが機能しない

Question

Vb.net を使用してローン償却テーブルを作成しています。すべて正常に動作していますが、ループが正しく動作していません。毎月の支払いをすべて削減し、残高を次々に表示する必要があります。ループの私のコードを以下に示します。

    Listbox1.Items.Add("Nos" & vbTab & "Periodic" & vbTab & "Payment" & vbTab & "Payment" & vbTab & "Balance")
    Listbox1.Items.Add("" & vbTab & "Payment" & vbTab & "Interest" & vbTab & "Principal" & vbTab & "")
    Listbox1.Items.Add("__________________________________________________________________________________________")


    Dim a As Integer

    **For a = 1 To n
        monthly_Interest = (p * (txtbox_Rate.Text / 100) * (1 / 12))
        monthlyPrincipal = monthlyPayments - monthlyInterest
        balance = p - monthlyPrincipal
        Listbox1.Items.Add(a & vbTab & FormatCurrency(monthlyPayments, 2) & vbTab & FormatCurrency(monthly_Interest, 2) & vbTab & FormatCurrency(monthlyPrincipal, 2) & vbTab & FormatCurrency(balance, 2))
    Next**