VB程序设计题百鸡问题题目：编写窗体单击事件,求解"百鸡问题"：'已知公鸡每只3元,母鸡每只5元,每只小题目：编写窗体单击事件,求解"百鸡问题"：'已知公鸡每只3元,母鸡每只5元,每

Question

VB程序设计题百鸡问题题目： 编写窗体单击事件,求解"百鸡问题"： ' 已知公鸡每只3元,母鸡每只5元,每只小
题目： 编写窗体单击事件,求解"百鸡问题"：' 已知公鸡每只3元,母鸡每只5元,每只小鸡0.5元.' 用100元钱买100只鸡,问一共有多少种方案.程序中' 定义的变量 x,y,z分别代表公鸡、母鸡、和小鸡的' 数量,count代表组合方案的数量.

Answer 1

Private Sub Command1_Click()
Dim count '组合数
Dim i, j, k
For i = 1 To 100 / 3 '公鸡的数量
For j = 1 To 100 / 5 '母鸡的数量
For k = 1 To 100 / 0.5 '小鸡的数量
'公鸡+母鸡+小鸡的总价=100,且公鸡+母鸡+小鸡的数量=100
If i * 3 + j * 5 + k * 0.5 = 100 And i + j + k = 100 Then
count = count + 1
Print "第" & count & "种组合为："
Print "公鸡有：" & i & "只"
Print "母鸡有：" & j & "只"
Print "小鸡有：" & k & "只"
End If
Next k
Next j
Next i
Print "百钱买百鸡的组合一共有：" & count & "种"
End Sub

计算出2中组合哦.第一种,公鸡：2只；母鸡：10只；小鸡：88只.第二种,公鸡：11只；母鸡：5只；小鸡：84只.