求编写一个程序： 鸡兔同笼，共m个头，n只脚，计算鸡有多少只，兔有多少只。m,n为已知量，在

求编写一个程序： 鸡兔同笼，共m个头，n只脚，计算鸡有多少只，兔有多少只。m,n为已知量，在

Private Sub Command1_Click()
m = Val(Text1.Text)
n = Val(Text2.Text)
can = True
If m < 0 Or n < 0 Or m <> CInt(m) Or n <> CInt(n) Then MsgBox "头和脚的数目必须是非负整数！": can = False
If n Mod 2 = 1 Then MsgBox "脚的数目不可能是奇数！": can = False
If n > 4 * m Then MsgBox "不可能有这么多脚！": can = False
If n < 2 * m Then MsgBox "不可能只有这么多脚！": can = False
If can Then
Text4.Text = "兔子有 " & (n - 2 * m) \ 2 & " 只"
Text3.Text = "鸡有 " & m - (n - 2 * m) \ 2 & " 只"
End If
End Sub追问调试的时候它说未声明名称can，怎么办呢can是什么意思啊追答在前面加一句Dim can As Boolean追问好的，谢谢～

35个头，94只脚。鸡23只，兔12只。我就会这个

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息