è¿ä¸ªè¦ä½¿ç¨VBAç¼ç¨å¦ï¼ææä¸ä¸ªVBSçèæ¬è¿è¡ç»æå¦ä¸ï¼
7é4çç»æï¼
1 2 3 4
1 2 3 5
1 2 3 6
1 2 3 7
1 2 4 5
1 2 4 6
1 2 4 7
1 2 5 6
1 2 5 7
1 2 6 7
1 3 4 5
1 3 4 6
1 3 4 7
1 3 5 6
1 3 5 7
1 3 6 7
1 4 5 6
1 4 5 7
1 4 6 7
1 5 6 7
2 3 4 5
2 3 4 6
2 3 4 7
2 3 5 6
2 3 5 7
2 3 6 7
2 4 5 6
2 4 5 7
2 4 6 7
2 5 6 7
3 4 5 6
3 4 5 7
3 4 6 7
3 5 6 7
4 5 6 7
7é5çç»æï¼
1 2 3 4 5
1 2 3 4 6
1 2 3 4 7
1 2 3 5 6
1 2 3 5 7
1 2 3 6 7
1 2 4 5 6
1 2 4 5 7
1 2 4 6 7
1 2 5 6 7
1 3 4 5 6
1 3 4 5 7
1 3 4 6 7
1 3 5 6 7
1 4 5 6 7
2 3 4 5 6
2 3 4 5 7
2 3 4 6 7
2 3 5 6 7
2 4 5 6 7
3 4 5 6 7
VBSç¨åºç´æ¥ä½¿ç¨éè¦ææ°åæ¿æ¢ä¸ºå®é
çé¢è²ï¼èªå·±æå
´è¶£ä¹å¯ä»¥æ¹å为VBAå¨EXCELéé¢å·¥ä½ï¼æçVBSç¨åºä»£ç å¦ä¸ï¼
'n é k çç»åç»æ产ç
Dim n
Dim k
Dim a(10001)
n = 7
k = 5
Call C(1)
Sub C(t)
Dim i
For i = a(t - 1) + 1 To n
a(t) = i
If t = k Then
Myprint
Else
Call C(t + 1)
End If
Next
End Sub
Private Sub Myprint()
Dim i, LinStr
LinStr = ""
For i = 1 To k - 1
LinStr = LinStr & a(i) & " "
Next
LinStr = LinStr & a(k)
wscript.echo LinStr
End Sub
追é®è¿ä¸ªç¨åºæä¹æå¯ä»¥è¿ç¨å¨Excelä¸ï¼å®ç¾å±ç¤ºåºæ¥ãæ¯ä¸æ¯è¿éè¦ææ°åå®ä¹ä¸ºæç§é¢è²ï¼ç´æ¥è®©æ¾ç¤ºææåæé¢è²èä¸æ¯æ°åã
ææ³æä»è¿è¡å¨Excelä¸ è¦æä¹æ
追ç![](https://video.ask-data.xyz/img.php?b=https://iknow-pic.cdn.bcebos.com/3c6d55fbb2fb4316f167c40430a4462309f7d350?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto)
![](https://video.ask-data.xyz/img.php?b=https://iknow-pic.cdn.bcebos.com/359b033b5bb5c9eaa98bbd9dc539b6003af3b350?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto)