excel - 为什么这个循环在第一次通过后停止？

Question

我希望我的函数在给我答案之前循环一定次数。它在第一个循环后停止。在给我答案之前，我希望它通过循环“PerInq”次。我有一系列数学问题必须连续完成才能得到正确答案。下面是我的代码：

Function IntFinder(PVLoan, APR, PMT_Freq, Term, PerInq)
n = PMT_Freq * Term
R = APR / PMT_Freq
PMT1 = Pmt(R, n, -PVLoan)
Intrest = PVLoan * R
Prin = PMT1 - Intrest
Bal = PVLoan - Prin
BalSum = 0
For counter = 1 To counter = PerInq
    Intrest = R * Bal
    Prin = PMT1 - Intrest
    Bal = Bal - Prin
    counter = counter + 1
Next counter
IntFinder = Intrest
End Function

标签： excelvba