1樓：夜空裡的守望者
如果12個數裡面選擇出4個數進行排列組合，其個數應為：c=12*11*10*9=11880，其vba**如下：
sub qiong()
dim i, j, k, l, m as long
dim a, b, c, d as string
m = 0
set mysheet1 = thisworkbook.worksheets("sheet1")
for i = 1 to 12
for j = 1 to 12
for k = 1 to 12
for l = 1 to 12
a = choose(i, "a1", "a2", "a3", "b1", "b2", "b3", "c1", "c2", "c3", "d1", "d2", "d3")
if j <> i then
b = choose(j, "a1", "a2", "a3", "b1", "b2", "b3", "c1", "c2", "c3", "d1", "d2", "d3")
if k <> i and k <> j then
c = choose(k, "a1", "a2", "a3", "b1", "b2", "b3", "c1", "c2", "c3", "d1", "d2", "d3")
if l <> i and l <> j and l <> k then
d = choose(l, "a1", "a2", "a3", "b1", "b2", "b3", "c1", "c2", "c3", "d1", "d2", "d3")
m = m + 1
mysheet1.cells(m, 5) = a & b & c & d
end if
end if
end if
next
next
next
next
end sub
2樓：鼎中人
12個數字抽取4個排列組合？也就是一共有12*11*10*9/(4*3*2)=495種組合？
這個用vba可實現：
sub zuhe()
dim arr(0 to 11)
i = 0
for each rng in range("a1:d3")arr(i) = rng.value
i = i + 1
next
f = 1
for c1 = 0 to 11
for c2 = 1 to 11
for c3 = 2 to 11
for c4 = 3 to 11
if c1 >= c2 or c1 >= c3 or c1 >= c4 or c2 >= c3 or c2 >= c4 or c3 >= c4 then
goto 100
else
range("f" & f) = arr(c1) & arr(c2) & arr(c3) & arr(c4)
f = f + 1
end if
100:
next c4
next c3
next c2
next c1
end sub
結果如下：
3樓：秦擺度
找個會vba的來幫你吧，我不會，很抱歉！
請問怎樣一鍵恢復出廠設定，電腦怎樣一鍵恢復出廠設定？
先進入手機的設定 settings 中，選擇隱私權，再選擇恢復出廠設定，點選重置手機就可以了。手機如何恢復出廠設定？電腦怎樣一鍵恢復出廠設定？回答1 電腦開機進入系統後，我們按快捷鍵 win i 開啟設定介面，然後選擇 更新和安全。2 出現的設定介面，我們點選左側的 恢復 選項。3 然後我們找到重置...
電腦的一鍵還原系統怎麼用，怎樣使用電腦一鍵還原
回答你好，很高興能鼓搗你的問題，想要把電腦還原系統，你可以按照下面的方法來操作 開啟電腦 開始 選單，選擇 設定 開啟 更新和安全 點選 恢復 找到重置此電腦下的 開始 選擇 保留我的檔案 或者 刪除所有內容 點選 下一步 選擇 重置 即可。提問你好 這個是啥問題 回答系統故障，重新做系統就好了 提...
ibm一鍵恢復，ibm 一鍵恢復
用thinkvantage rescue and recovery 3.0 應急與恢復系統 r r 3.0 的話,雖然可以實現一鍵恢復的功能,但備份需要存到其它地方,你的隱藏空間沒辦法釋放 一鍵恢復被破壞了,辦法有二 1.釋放隱藏空間,用其它盤重灌系統,再裝rescue and recovery軟體...