百元买百鸡问题，假定小鸡每只5角，公鸡每只2元，母鸡每只3元，现在有100元钱，要求，买100只鸡

百元买百鸡问题，假定小鸡每只5角，公鸡每只2元，母鸡每只3元，现在有100元钱，要求，买100只鸡编程列出有可能的购鸡方案，vb编程

解：设公鸡、母鸡、小鸡各买x，y，z只，由题意列方程组
5x+3y+1 3 z=100① x+y+z=100② ，
①化简，得15x+9y+z=300③，
③-②，得14x+8y=200，
即7x+4y=100．
y=25-7 4 x．
由题意知，0＜x，y，z＜100，且都是整数，
所以可能有三种情况：4只公鸡，18只母鸡，78只小鸡；或8只公鸡，11只母鸡，81只小鸡；或12只公鸡，4只母鸡，84只小鸡．

代码如下： Private Sub Command1_Click() Dim a, b, c As Integer Dim aconst, bconst As Integer Dim sum As Integer aconst = Int((100 - (100 / 3)) / 5) + 1 For a = 0 To aconst bconst = Int((100 - a * 5) / 3) + 1 For b = 0 To bconst c = 100 - a - b If Not (c Mod 3) Then sum = a * 5 + 3 * b + c / 3 If sum = 100 Then Print "公鸡" & a, "母鸡" & b, "小鸡" & c ElseIf sum > 100 Then Exit For End If End If Next Next End Sub 希望能帮助你！