Aa123456789

作业：百钱百鸡   编码：ANSI

Dim a, i, j, k, l, n, m
a = 0
For i = 0 To 20
For j = 0 To 100 / 3
For k = 0 To 100
If i * 5 + j * 3 + k / 3 = 100 And i + j + k = 100 And k Mod 3 = 0 Then
l = "公鸡有：" & i
n = "母鸡有：" & j
m = "小鸡有：" & k
why = MsgBox(l & vbCrLf & n & vbCrLf & m, 0, "百钱百鸡")
a = a + 1
End If
Next
Next
Next
MsgBox ("共有解法:" & a)