麻辣家族討論版版 » Excel程式區 » 排列組合題目(1~10的所有組合)有大大能破解嗎?

返回列表下一主題上一主題發帖

[發問] 排列組合題目(1~10的所有組合)有大大能破解嗎?

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2016-7-17 16:49 | 顯示全部帖子

[發問] 排列組合題目(1~10的所有組合)有大大能破解嗎?

各位先進大家好
小弟最近在研究排列組合
想請教各位大大
若想要從1~10個號碼裡面跑完所有的排列組合
10取1~10取10
一共會產生出1,023個組合,算法如下方
For I = 1 To 10
x = x + Application.Combin(10, I)
Next
但這1,023個組合要如何才能產生出來呢?
請問哪位大大有辦法破解嗎?

樓主熱帖

收藏

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2016-7-18 11:18 | 顯示全部帖子

小弟提供拙見，下列是10取4的方式
但要如何從10取1到10取10?
總不能寫了下方的程式碼,然後寫十遍吧= =?

Sub 排列組合_不重複()
Dim ar(), br(), x&, y&, z&, n&
ReDim br(1 To Application.Combin(10, 4), 1 To 4)
ReDim ar(1 To 10, 1 To 1)
For i = 1 To 10
ar(i, 1) = i
Next
For w = 1 To UBound(ar) - 3
For x = w + 1 To UBound(ar) - 2
For y = x + 1 To UBound(ar) - 1
For z = y + 1 To UBound(ar)
n = n + 1
br(n, 1) = ar(w, 1)
br(n, 2) = ar(x, 1)
br(n, 3) = ar(y, 1)
br(n, 4) = ar(z, 1)
Next
Next
Next
Next
Range("a2").Resize(n, 4) = br
MsgBox "操作完成,共生成" & n & "個組合"
End Sub

複製代碼

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2016-7-18 17:07 | 顯示全部帖子

回復 3# stillfish00

S大您好,非常感謝您的協助
已經多次得到您的幫忙，感激不盡!
程式碼小弟先拜讀一下^_^

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2016-7-19 11:49 | 顯示全部帖子

回復 5# stillfish00

沒問題!
那邊是預先建立放置資料的陣列
感謝您的細心!

PKKO

靜思自在 : 不怕事多，只怕多事。

返回列表下一主題上一主題