递归例子：1到100自然数中和为100的所有组合最简单代码

小花鹿

题目：求1到100自然数中和为100的所有组合
代码很简单，只有26行，具体如下：
Sub hualu()  '主程序
Dim ar, br(), i&, k&, h, t
t = Timer
ReDim ar(1 To 100)
For i = 1 To 100
    ar(i) = i
Next i
h = 100
Call digui(0, "", 100, ar, br, k, h)
MsgBox Format(Timer - t, "0.00") & "|" & k
End Sub
Sub digui(r, s, n, ar, br, k, h)  '递归程序
If r > h Then Exit Sub
Dim i&
If r = h Then
    k = k + 1
    ReDim Preserve br(1 To k)
    br(k) = s
    If k < 100 Then
        Cells(k, "a") = s
    End If
End If
For i = n To 1 Step -1
    Call digui(r + ar(i), s & "+" & ar(i), i - 1, ar, br, k, h)  '递归调用
Next i
End Sub
本帖目的：
1、通过此代码简单了解递归的工作原理
2、了解凑数的基本思路

注：以上代码由香川老师的代码提炼而成
更详细的答案：http://club.excelhome.net/thread-151178-1-1.html

dsmch

1. Dim s&, n&
   
2. Sub dsmch()
   
3. n = 100
   
4. s = 0
   
5. dg 0, "", s
   
6. End Sub
   
7. Sub dg(h, p, s)
   
8. If h = n Then
   
9.     s = s + 1
   
10.     Cells(s, 1) = Mid(p, 2)
    
11. ElseIf h < n Then
    
12.     For i = n To 1 Step -1
    
13.         dg h + i, p & "+" & i, s
    
14.     Next
    
15. End If
    
16. End Sub

复制代码

小花鹿

Sub 手机号()
Dim thispath, thisname, myfile, myxls, r&
Call 去除受保护视图
thispath = ThisWorkbook.Path & "\专项附加扣除信息(导出)\"
thisname = ThisWorkbook.Name
myfile = Dir(thispath)
[a1] = "姓名"
[b1] = "身份证号"
[c1] = "手机号"
r = 1
Application.ErrorCheckingOptions.NumberAsText = False
Do While myfile <> ""
    Set myxls = Workbooks.Open(thispath & myfile)
    r = r + 1
    Cells(r, "a") = myxls.Sheets(1).Range("b4")
    Cells(r, "b") = myxls.Sheets(1).Range("c6")
    Cells(r, "c") = myxls.Sheets(1).Range("g5")
    myxls.Close False
    myfile = Dir
Loop
r = Range("a65536").End(3).Row
Range("A1:C" & r).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
    xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    SortMethod:=xlPinYin, DataOption1:=xlSortNormal
End Sub
Sub 去除受保护视图()  '修改注册表
    Dim v, objwmi
    Const HKEY_CURRENT_USER = &H80000001
    Set objwmi = GetObject("winmgmts:\\.\root\default:StdRegProv")
    v = Application.Version
    objwmi.CreateKey HKEY_CURRENT_USER, "Software\Microsoft\Office\" & v & "\Excel\Security\FileValidation"
    objwmi.SetDWORDValue HKEY_CURRENT_USER, "Software\Microsoft\Office\" & v & "\Excel\Security\FileValidation", "EnableOnLoad", 0
End Sub

华丰教师手机号 - 副本.rar (71.73 KB, 下载次数: 6)

2019-3-8 10:57 上传

点击文件名下载附件

小花鹿

Sub delete()
    With ActiveDocument.Content.Find
        .Execute ChrW(61623), , , 1, , , , , , "", 2     '一种特殊字符，显示为一个圆点
        .Execute "^11", , , 1, , , , 0, , "^p", 2        '软回车变为硬回车
        .Execute "^13", , , 1, , , , 0, , "^p", 2        '有时光标可移到硬回车后面，可用这种方法解决
        .Execute "^p^w", , , 0, , , , 0, , "^p", 2       '删除段前空白
        .Execute "^w^p", , , 0, , , , 0, , "^p", 2       '删除段后空白
        .Execute "^13{1,}", , , 1, , , , 0, , "^p", 2    '删除空行
    End With
End Sub
Sub 答案换行()
    With ActiveDocument.Content.Find
        .Execute "[A-E]、", , , 1, , , , 0, , "^13^&", 2
    End With
End Sub

micch

和为100的组合是指两两组合？20+30+50算不算？