0xDe

[Visual Basic 6.0] 實做 數字拆解 問題 (使用遞迴)

題目說明：

當輸入一個整數 N 時，則將 1 ～ N 的數字拆解結果顯示出來

例如 N  = 3 則輸出

1

2

1+1

3

2+1

1+1+1

 

 

我們會發現，當 N > 1 則下一次結果會是 N-1 & "+1" 所以遞迴寫法就是：

 

Private Sub Command1_Click()
List1.Clear

For N = 1 To Val(Text1)
    Call Change(N, "")
Next N

End Sub

Function Change(A, B)
    If A = 1 Then
        List1.AddItem A & B
    Else
        List1.AddItem A & B
        Call Change(A - 1, B & "+1")
    End If
End Function

 

數字拆解 (遞迴).rar

#0xDe 從分享中學習

#Facebook：ProgrammerDe (https://www.facebook.com/MicrosoftDes) 有問題歡迎提問