返回列表 上一主題 發帖

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

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2016-7-18 15:12 | 顯示全部帖子
本帖最後由 stillfish00 於 2016-7-18 15:15 編輯

回復 2# PKKO
1~1023 用二進位看, 各bit  bit=1為取 , bit=0為不取
  1. Sub ListCombination()
  2.     Dim pools, poolCnt As Integer
  3.     pools = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
  4.     poolCnt = UBound(pools) - LBound(pools) + 1
  5.    
  6.     Dim i, j, arResult
  7.     ReDim arResult(1 To 2 ^ poolCnt - 1, 1 To 10)
  8.     For i = 1 To 2 ^ poolCnt - 1
  9.         For j = 0 To poolCnt - 1
  10.             If i And 2 ^ j Then arResult(i, j + 1) = pools(j)
  11.         Next
  12.     Next
  13.     Sheets.Add.[a1].Resize(UBound(arResult), UBound(arResult, 2)) = arResult
  14. End Sub
複製代碼
1

評分人數

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2016-7-19 09:13 | 顯示全部帖子
回復 3# stillfish00
更正一下
ReDim arResult(1 To 2 ^ poolCnt - 1, 1 To 10)
應該為
ReDim arResult(1 To 2 ^ poolCnt - 1, 1 To poolCnt)
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 【做人的開始】每一天都是故人的開始，每一個時刻都是自己的警惕。
返回列表 上一主題