Re: [VBA ] 用VBA要怎麼寫出所有可能的組合阿
※ 引述《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
→
01/06 19:08, , 1F
01/06 19:08, 1F
→
01/07 11:59, , 2F
01/07 11:59, 2F
推
01/07 14:50, , 3F
01/07 14:50, 3F
→
01/07 14:50, , 4F
01/07 14:50, 4F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 4 之 4 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
