VB：百元买百鸡问题

VB：百元买百鸡问题

Private Sub Command1_Click()
    Cls
    Rem 百元买百鸡问题
    Print "公鸡", "母鸡", "小鸡"
    For x = 0 To 20
        For y = 0 To 33
         z = 100 - x - y
         If z Mod 3 = 0 Then
            If 5 * x + 3 * y + z / 3 = 100 Then
             Print x, y, z
            End If
         End If
        Next y
    Next x
End Sub