Out of Stack在Excel中使用VBScript遞歸的錯誤

Question

讓我詳細解釋它。因此，如果'id'或'f'大於0且'l'或's'是6，那麼此代碼所做的是基於參數值，然後分別計算下一次迭代中的3％（2％和1％） ）的值（say = P），更新'id'和'l'爲其他值，並將其存儲在別的地方。直到'id'或'f'變爲0或'l'或's'變爲大於8時才能完成。

這就是它需要完成的一切。但它計算到第一個值的2％，並給出了錯誤

Function percentage(f, s, t) 
Dim id, l, k, y 
k = 2 
id = f 
l = s 
y = t 
     If id <> 0 Then 

      While IsEmpty(Sheet7.Cells(k, 1).Value) = False 

       If Sheet7.Cells(k, 1).Value = id Then 
        id = Sheet7.Cells(k, 11).Value 
         If l = 6 Then 
         Sheet7.Cells(k, l).Value = 0.03 * Sheet7.Cells(y, 3).Value 
         l = l + 1 
         ElseIf l = 7 Then 
         Sheet7.Cells(k, l).Value = 0.02 * Sheet7.Cells(y, 3).Value 
         l = l + 1 
         ElseIf l = 8 Then 
         Sheet7.Cells(k, l).Value = 0.01 * Sheet7.Cells(y, 3).Value 
         End If 
       End If 
       k = k + 1 
       Wend 
       percentage = percentage(id, l, y) 
     End If 

    End Function 

Answer 1

假設這段代碼寫得好（即所有變量都設置它們的值正確），我能看到的唯一問題是l值和If l < 9 Then的條件。可能的選項包括：

• 爲l<6 - 你的代碼將什麼也不做，只會無限循環。這將是（幾乎）一樣

  Function percentage(f, s, t) percentage(f, s, t)

• 爲6<=l<=8 - 你的代碼會做一些（If/ElseIf語句），但是仍然會無限循環，爲改變l的價值的唯一線l = l + 1這僅針對l=6和l=7運行。因此，最高l值可以達到爲8

• 爲l>8 - 你的代碼會做什麼都

我不知道這是什麼代碼的目的，所以這是很難說應該如何修復。也許在ElseIf l = 8 Then之後加l = l + 1就夠了。但是，這隻會解決第二種情況。如果你從l<6開始，你仍然會永遠循環。

UPDATE

檢查下面的代碼。我沒有檢查值是否寫在正確的單元格中，我想你可以調試它，以防萬一以錯誤的方式顯示。

Function percentage(f, s, t) 
Dim id, l, k, y 
k = 2 
id = f 
l = s 
y = t 

If id <> 0 Then 
    If l > 5 And l < 9 Then 
     While IsEmpty(Sheet7.Cells(k, 1).Value) = False 

      If Sheet7.Cells(k, 1).Value = id Then 
       id = Sheet7.Cells(k, 11).Value 
       If l = 6 Then 
        Sheet7.Cells(k, l).Value = 0.03 * Sheet7.Cells(y, 3).Value 
        l = l + 1 
       ElseIf l = 7 Then 
        Sheet7.Cells(k, l).Value = 0.02 * Sheet7.Cells(y, 3).Value 
        l = l + 1 
       ElseIf l = 8 Then 
        Sheet7.Cells(k, l).Value = 0.01 * Sheet7.Cells(y, 3).Value 
        l = l + 1 
       End If 
      End If 
      k = k + 1 
     Wend 
     percentage = percentage(id, l, y) 
    End If 
End If 
End Function