Dim a As Integer, b As Integer, c As Integer
For a = 0 To 100
For b = 0 To 100
For c = 0 To 100
If 5 * a + 3 * b + c = 100 And a + b + c = 100 Then
label1.Text =
End If

Next
Next
Next
编到这就没有思路了，想了好久，大侠指点~
谢谢~

提问者：未知
问题：张丘建《算经》中提出“百鸡问题”：鸡翁一值钱五，鸡母一值钱三，鸡雏三值钱一。百钱买百鸡，问鸡翁、母、雏各几何？
来源：lrvinghu
参考思路：
Dim ix As Integer '鸡翁
Dim iy As Integer '鸡母
Dim iz As Integer '鸡雏

For ix = 0 To 19
For iy = 0 To 33
iz = 100 - iy - ix
If (5 * ix + 3 * iy + iz / 3) = 100 Then
TextBox1.Text = ix
TextBox2.Text = iy
TextBox3.Text = iz
End If
Next
Next

谢谢大侠！！！

我运行了上面的程序,它只能输出最后一次的结果,其实总共有四种情况,应该怎么输出呀!

最弱智的解法,哈哈...我不会数学一样解...这才叫是真正的电脑解法.
Private Sub Timer1_Timer() 'Timer1控件,Timer1.Interval=50
n = Int(Rnd * 20) '公鸡不可能超过20只
m = Int(Rnd * 40) '母鸡不可能超过40只
x = Int(Rnd * 130) '小鸡不可能超过130只
Form1.Caption = n & ":" & m & ":" & x
If (n * 5) + (m * 3) + (x * (1 / 3)) = 100 Then
Label1.Caption = "公鸡:" & n '
Label2.Caption = "母鸡:" & m
Label3.Caption = "小鸡:" & x

Timer1.Enabled = False
End If
End Sub