Re: [VBA ] 用VBA要怎麼寫出所有可能的組合阿

看板Visual_Basic作者 (痞子軍團團長)時間18年前 (2007/01/06 17:03), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串3/4 (看更多)
※ 引述《sdtty (低調低調)》之銘言: : ※ 引述《sdtty (低調低調)》之銘言: : : 限制式 a1+a2+a3+a4=1 : : a1={0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1}-->共11組可行解 : : a2={0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1}-->共11組可行解 : : a3={0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1}-->共11組可行解 : : a4={0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1}-->共11組可行解 : : 要怎麼用vba寫出所有可能的組合呢? : : 拜託各位高手了<(_ _)> : 因為a1+a2+a3+a4=1 : 所以可能的解為 : {a1,a2,a3,a4} : {0, 0, 0 , 1} : {0, 0,0.9,0.1} : {0, 0,0.8,0.2} : ... : .. : .. : {1, 0, 0 , 0} : 因為太多了估計大約有4000多組以上(應該是不止..), : 所以沒辦法用手算 : 而目前的研究,需要計算全部有可能的解。 : 因此希望能有人可以幫忙 拜託了.. 原來沒看清楚 , 跟 . 的差別 如果你只是要算出幾組 當然可以用手算阿... 高中的排列組合就有教了吧 (咳咳... 是當年的高中,現在高中... 不知道) 不然離散數學也有教 依照你的題意,可以變成 a1+a2+a3+a4=40,ai = {0, 1, 2, ..., 10} 就會有 43! / (40! * 3!) 種排法 ==== 只不過,跟 VB 好像沒啥關係.... -- 侃侃長論鮮窒礙 網站:http://www.psmonkey.idv.tw 眾目睽睽無心顫 個人版:telnet://legend.twbbs.org 煢居少聊常人事 殺頭容易告白難 歡迎參觀 Java 版(@ptt.cc)精華區 \囧/ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.228.194.156
文章代碼(AID): #15dsNfxm (Visual_Basic)
文章代碼(AID): #15dsNfxm (Visual_Basic)