Question

vb穷举背包问题 跪求大神

索尼105克 1730元 爱国者190克 839元 创齐 280克369元 描述 可装N kg背包有多少种组合正好装满 那种装法价值最高 输入 背包容量N 输出 商品组合

Answer 1

像面条一样，看不明白。

Answer 2

是否每种都要装？还是可以只装1种或2种？

追问

每种都要装 下午要交 3Q...............................

追答

Private Sub Command1_Click()
Dim N As Long, c As Long, max As Long
Dim i, j, k, d, e, f, tmp
N = Val(InputBox("背包容量="))

For i = 1 To N \ 105
For j = 1 To N \ 190
For k = 1 To N \ 280
If N - i * 105 - j * 190 - k * 280 >= 0 And N - i * 105 - j * 190 - k * 280 < 105 Then
tmp = i * 1730 + j * 839 + k * 369
If max < tmp Then
max = tmp
d = i
e = j
f = k
End If
c = c + 1
Debug.Print "第" & c & "种装法：索尼" & i & "个，爱国者" & j & "个，创齐" & k & "个"
End If
Next
Next
Next

Print "总共有" & c & "种装法正好装满"
Print N & "克背包价值最高的装法："
Print "索尼：" & d & "个"
Print "爱国者：" & e & "个"
Print "创齐：" & f & "个"
Print "重量：" & d * 105 + e * 190 + f * 280 & "克"
Print "价值：" & max & "元"
End Sub