利用计算机程序（VB）解决古代数学问题“鸡兔同笼”。

来源：百度知道 编辑：UC知道 时间：2024/06/21 22:46:25
利用计算机解决古代数学问题“鸡兔同笼”。即已知在同一个笼子里有总数为m只鸡和兔，鸡和兔的总角数为n只，求鸡和兔各有多少只？
【提示】不要求出一些荒唐的解，如只数为小数，或者是负数。即输入的总脚数必须是偶数，并且脚数应该是头数的倍数。

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

dim n as integer,n as integer
m=val(inputbox("输入鸡兔总数："))
n=val(inputbox("输入鸡兔总脚数："))
print "共有鸡";(4*m-n)/2;"只，共有兔";(n-2*m)/2;"只。"