马上要交作业！急救！求VB 鸡兔同笼小程序：在笼中有鸡、兔若干，已知有头A个，有脚B只，求鸡和兔各有多少

马上要交作业！急救！求VB 鸡兔同笼小程序：在笼中有鸡、兔若干，已知有头A个，有脚B只，求鸡和兔各有多少

在计算之前应进行基本的逻辑判断：
1.B必须是偶数（两种动物都是偶数只脚）
2.B必须>=A×2（全是鸡），且B必须<=A×4（全是兔子）
否则就不合逻辑。
判断完基本的逻辑，才应该进行计算！

Private Sub Command1_Click()
Dim a As Integer, b As Integer
Dim js As Boolean
Cls
a = clng(InputBox("请输入头数"))
b = clng(InputBox("请输入脚数"))
If (a<=0) or (b < a*2) or (b>a*4) or ((b mod 2) =1) Then
MsgBox "数据不符合逻辑"
else
For i = 1 To a
If i * 2 + (a - i) * 4 = b Then
Print "鸡=";i, "兔=";a-i
Exit for
End If
Next i
End If
End Sub

Private Sub Command1_Click()
Dim a As Integer, b As Integer
Dim js As Boolean
Cls
Do
a = Val(InputBox("请输入头数"))
b = Val(InputBox("请输入脚数"))
If b > a Then
For i = 1 To a
If i * 2 + (a - i) * 4 = b Then
Print "鸡", "兔"
Print i, a - i
Exit Do
End If
Next i
End If
MsgBox "数据不符合逻辑"
Loop

End Sub

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

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