用VB编程,百钱买百鸡,一只公鸡5元钱,一只母鸡3元钱,3只小鸡1元钱,一百元买一百只鸡,有多少种买法?

Question

最好有注解!谢谢各位大侠了!

Answer 1

'设：变量x表示鸡翁；y表示鸡母；z表示鸡雏。则有：
'5x+3y+z/3=100
'x+ y + z = 100
'考虑到如果100钱都买鸡翁20只；都买鸡母为33只，则有：

Private Sub Command1_Click()
Dim x As Integer, y As Integer, z As Integer
For x = 1 To 19
For y = 1 To 33
z = 100 - x - y
If 5 * x + 3 * y + z / 3 = 100 Then
Debug.Print "公鸡:"; x, "母鸡:"; y, "小鸡"; z
End If
Next y
Next x
End Sub