作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VBA ] 用VBA要怎麽写出所有可能的组合阿
时间Sat Jan 6 19:03:51 2007
※ 引述《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
1F：→ fumizuki:是这样吗，这样只有246组 囧 01/06 19:08
2F：→ edwar:286组, 所有数字乘以十换成整数, 电脑用浮点数会有误差. 01/07 11:59
3F：推 sdtty:大感激喔喔喔喔喔 非常谢谢你 01/07 14:50
4F：→ sdtty:感谢你<(_ _)> 01/07 14:50