- 帖子
- 13
- 主題
- 5
- 精華
- 0
- 積分
- 24
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- Office 2003
- 閱讀權限
- 10
- 註冊時間
- 2010-7-5
- 最後登錄
- 2022-6-7
|
請問各位排列組合問題
我想要做各種數值的組合後,判定所得結果.但是我還是想不出怎麼解.
A＝$100
B＝$50
C＝$25
D＝$5
例如:小明身上只有＄105,想要買到上面A∼D(或者A~n種)餐點,每種都不能重複,可以買到哪些組合?
A=100-->O
AB=150-->X
ABC=175-->X
ABCD=180-->X
AC=125-->X
ACD=130-->X
AD=105-->O
B=50-->O
BC=75-->O
BCD=80-->O
BD=55-->O
C=25-->O
CD=30-->O
D=5-->O
Sub T1()
Range("E:F").Clear
MyC = 4
r = 3
AddX = 1
T = ""
m = 0
For i = 1 To MyC
For j = i To MyC
r = r + 1
If T = "" Then
T = Cells(1, j)
m = m + Cells(2, j)
Else
T = T & "+" & Cells(1, j)
m = m + Cells(2, j)
End If
Cells(r, 5) = T
Cells(r, 6) = m
Next j
T = ""
m = 0
Next i
End Sub |
-
-
T1.rar
(5.02 KB)
排列組合
|
發表於 2016-3-18 00:02
| 
