返回列表下一主題上一主題發帖

[發問] 數值排列組合問題

qmi

小學生 Rank: 1

帖子: 13
主題: 5
精華: 0
積分: 24
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 10
註冊時間: 2010-7-5
最後登錄: 2022-6-7

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2016-3-18 00:02 | 顯示全部帖子

[發問] 數值排列組合問題

排列, VBA, 組合

請問各位排列組合問題
我想要做各種數值的組合後,判定所得結果.但是我還是想不出怎麼解.
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