我们电脑课我基本没听 讲的VB很多语句都不知道 请大家帮帮忙 把这几道题编

来源：百度知道 编辑：UC知道 时间：2024/05/09 13:17:48
1.枚举算法
“包装问题”。包装600个变形金刚，要求是（1）包装的规格分别是：小盒可装2个，中盒可装5个，大盒可装8个；（2）每种规格的盒数都不能为0；设计一个算法输出所有可能的包装方案以及方案个数。

请你帮我写一下算法 流程图不要

Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer
'a为小盒个数，b为中盒个数，c为大盒个数
Dim i As Integer
i = 0
For a = 1 To 294
'因为至少一个中盒和一个大盒
For b = 1 To 118
'因为至少一个小盒和一个大盒
For c = 1 To 75
'因为至少一个小盒和一个中盒
If 2 * a + 5 * b + 8 * c = 600 Then
Debug.Print "小盒子:"; a, "中盒子:"; b, "大盒子:"; c
i = i + 1
End If
Next c
Next b
Next a

Print "方案有:" & i & "种"