公鸡1只5钱，母鸡1只3钱，小鸡3钱1只，用100钱买100只鸡，求公鸡、母鸡、小鸡各多少？

俺是刚学的，想了好久，就是不知道该怎么算，应该是一个多重循环的问题，请高手帮忙解答，
先谢了！

写错了，小鸡是3只一钱！！！

看了一个冒泡排序的例子，研究了差不多3个小时在看懂，从中得了一点启发，
---------------------------------------------------------------------
Private Sub Command1_Click()
Dim g, m, x, a As Integer
For g = 1 To 16
For m = 1 To 31
For x = 3 To 96 Step 3
If g + m + x = 100 And 5 * g + 3 * m + x / 3 = 100 Then
Print g; m; x
End If
Next x
Next m
Next g
End Sub
----------------------------------------------------------------------
4，18，78 结果
8，11，81
12，4，84
------------------
这么个问题花了我4个多小时，哎。。