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

[fumizuki (矇面加菲獅)]

※ 引述《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寫出所有可能的組合呢?
: 拜託各位高手了<(_ _)>
Dim count As Long
Dim a1 As Single, a2 As Single, a3 As Single, a4 As Single
For a1 = 0 To 1 Step 0.1
    For a2 = 0 To 1 Step 0.1
        For a3 = 0 To 1 Step 0.1
            For a4 = 0 To 1 Step 0.1
                If a1 + a2 + a3 + a4 = 1 Then count = count + 1
            Next
        Next
    Next
Next
MsgBox "共 " & count & " 組解", vbInformation

--
                                ▃▅▇▆▄                         ▆▂▃  `  
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃                ▇▃▂"  .
                                    █████████▃i              ▁▄▇ 
              更多悽悽慘慘的遭遇…………██▆▃                █▅▆▃ˍ▄* 
                                                 ◢           ▂█▄▇▅▂▌. 
我不知道，王～八～蛋～～！           ▂▆███    █▄▃  。fumizuki。Check。

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 123.194.68.49
→ fumizuki:是這樣嗎，這樣只有246組 囧
→ edwar:286組, 所有數字乘以十換成整數, 電腦用浮點數會有誤差.
推 sdtty:大感激喔喔喔喔喔   非常謝謝你
→ sdtty:感謝你<(_ _)>