使用VB编程，解决“百钱百鸡”

公鸡每只5元，母鸡每只3元，小鸡三只一元，用100元钱买100只鸡，求公鸡、母鸡、小鸡的只数。

有把编好的程序发到我邮箱（在VB里编好发给我）

275032166@qq.com

Option Explicit
Const a = 5, b = 3, c = 1
Private Sub Form_Activate()
Dim i As Integer, j As Integer, k As Integer, n As Integer
For i = 1 To 100
For j = 1 To 100
For k = 1 To 100
If i * a + j * b + k * c = 100 Then
n = n + 1
List1.AddItem " 公鸡：" & i & " 母鸡：" & j & " 小鸡：" & k
End If
Next: Next: Next
MsgBox "共有组合：" & n
End Sub