7,759
社区成员
发帖
与我相关
我的任务
分享
Dim k&, w&, n&, sab&,temp&,c&(1 To 20)
Public Sub ArrRecursion(p&, j&)
Dim i&
c(p + 1) = j
If (p < 20) Then
For i = 0 To b(p)
Call ArrRecursion(p + 1, i)
Next
Else
sab = 0
For k = 1 To 19
sab = sab + c(k) * a(k)
Next
For k = 0 To b(20)
temp = k * a(20)
If Sheet1.Cells(2, 2) - temp - sab < Sheet1.Cells(2, 3) _
And Sheet1.Cells(2, 2) - temp - sab >= 0 Then
w = w + 1
For n = 1 To 20
Sheet2.Cells(w, n + 1) = c(n)
Next
Sheet2.Cells(w, 22) = w - 1
Sheet2.Cells(w, 23) = Sheet1.Cells(2, 2) - temp - sab
Sheet2.Cells(w, 24) = "x" + Str(w - 1)
End If
Next
End If
End Sub
Sub ArrRecursion(aa&(), p&)
Static M&
Dim i&
M = UBound(aa)
If (p < M) Then
For i = 0 To aa(p)
Call ArrRecursion(aa, p + 1)
Next
Else
For i = 0 To aa(p)
'在这里写最内层的执行语句
'………………
'………………
Next
End If
End Sub
Dim i%, j%, M%
M = UBound(b)
For i = 0 To M
for j = 0 To b(i)
'这里是你的循环体中的代码
'..........
Next '(Next j)
Next '(Next i)