VB：百元买百鸡问题

Private Sub Command1_Click()ClsRem 百元买百鸡问题Print "公鸡", "母鸡", "小鸡"For x = 0 To 20For y = 0 To 33z = 100 - x - yIf z Mod 3 = 0 ThenIf 5 * x + 3 * y + z / 3 = 100 ThenPrint x, y, zEnd IfEnd IfNext yNext x
End Sub