Option Explicit
Dim N As Integer
Private Sub Command1_Click()
Dim I As Integer, j As Integer
For I = 3 To 1 Step -2
N = fun(I, N)
Print N
Next I
End Sub
Private Function fun(A As Integer, B As Integer) As Integer
Static X As Integer
Dim sum As Integer, I As Integer
X = X + N
For I = 1 To A
B = B + X + I
N = N - I \ 2
sum = sum + B
Next I
A = A + 1
fun = sum + A
End Function
帮帮忙 解释一下 我刚刚学 麻烦详细一点谢拉