百元买百鸡VB程设计百钱买百鸡：已知公鸡一只5元,母鸡一只3元,小鸡三只一元,如一百元买100只鸡,那么公鸡、母鸡和小鸡各买多少只_其他解答

百元买百鸡VB程设计
百钱买百鸡：已知公鸡一只5元,母鸡一只3元,小鸡三只一元,如一百元买100只鸡,那么公鸡、母鸡和小鸡各买多少只?

人气：416 ℃　时间：2020-06-15 20:40:10

解答

Dim x, y
For x = 1 To 20
For y = 1 To 33
If 5 * x + y * 3 + (100 - x - y) / 3 = 100 Then
MsgBox ("x=" & x & "y=" & y & "z=" & 100 - x - y)
End If
Next y
Next x