3.
大约1500年前,《孙子算经》中记载了"鸡兔同笼"问题.原文大意是:如果若干只鸡和兔在同一个笼子里,从上面数有35个头,从下面数有94只脚,求笼中鸡和兔子各有几只?
现在我们用VB6.0软件设计一个程序,可以解答上述问题,通过界面输入鸡和兔头数和,鸡、兔脚数和。在输入数据合理的情况下,求出鸡、兔各有多少只。程序运行界面图、输出界面图和程序的代码如下所示。
程序运行界面图 输出结果界面图
程序代码如下:
Private Sub Command1_Click( )
Dim x As Integer, y As Integer ’x是鸡的数量,y是兔的数量
Dim a As Integer, b As Integer ’a是鸡兔的头数,b是鸡兔的脚数和
a = Val(Text1.Text)
b = Val(Text2.Text)
If b < 2 * a Or b > 4 * a Then ’对数据合理性做出判断
MsgBox "您的输入数据不合理,请重新输入!", , "错误提示"
Text1.Text = ""
Text2.Text = ""
① x = 0
Do While x
② a
y = a - x
If (2 * x + 4 * y = b) Then
MsgBox "鸡有:" & x & "只 兔有:" & y & "只", , "运行结果"
End If
③ Loop
End Sub
Private Sub Command2_Click( )
Text1.Text = ""
Text2.Text = ""
End Sub
请分析任务,完成下面试题。