Private Sub Command1_Click()
Dim ChengLi As Boolean
Dim m As Integer,n As Integer,i As Integer
ChengLi = False
Line1:
m = InputBox("输入鸡兔总数")
If m < 1 Then
MsgBox "输入错误,请重新输入"
GoTo Line1
End If
Line2:
n = InputBox("输入鸡兔总脚数")
If n < 1 Or n Mod 2 0 Then
MsgBox "输入错误,请重新输入"
GoTo Line2
End If
For i = 1 To m
If i * 2 + (m - i) * 4 = n Then
ChengLi = True
MsgBox i & "只鸡" & vbCrLf & m - i & "只兔"
Exit For
ElseIf i = m And ChengLi = False Then
MsgBox "输入的数量不成立"
End If
Next
End Sub