Private Sub Form_DblClick()
Print "公鸡", "母鸡", "小鸡"
For a = 0 To 33
For b = 0 To 19
c = 100 - a - b
If c Mod 3 = 0 And 3 * a + b * 5 + c / 3 = 100 Then
Print a, b, c
N = N + 1
End If
Next b
Next a
Print "共"; N; "种方案"
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024