一道VB题,实验5.5百元买百鸡问题.假定小鸡1元三只,公鸡每只3元,母鸡每只5元.现实验5.5百元买百鸡问题.假定小鸡1元三只,公鸡每只3元,母鸡每只5元.现有100元钱,要求买100只鸡,编程列出所有可

Question

一道VB题,实验5.5 百元买百鸡问题.假定小鸡1元三只,公鸡每只3元,母鸡每只5元.现
实验5.5 百元买百鸡问题.假定小鸡1元三只,公鸡每只3元,母鸡每只5元.现有100元钱,要求买100只鸡,编程列出所有可能的购鸡方案(在窗体输出).窗体文件命名为Ex5-5.frm,工程文件命名为 Ex5-5.vbp.
提示：
1．用“穷举”算法解题,可以使用两重循环实现.
2．可能的购鸡方案中,假设变量x、y和z分别表示母鸡、公鸡和小鸡的数量,显然z=100-x-y.同时x不会超过100/5=20,y 不会超过100/3≈34.

Answer 1

Dim x, y, z

Private Sub Command1_Click()
Cls
Print "小鸡", "公鸡", "母鸡"
For x = 0 To 20 Step 1
For y = 0 To 34 Step 1
If (100 - x - y) / 3 + 3 * y + 5 * x = 100 Then
z = 100 - x - y
Print z, y, x
End If
Next y
Next x
End Sub

望采纳.