VB编程 高手来

来源：百度知道 编辑：UC知道 时间：2024/05/05 16:52:15
设计一个程序,解决"鸡兔同笼"问题. 鸡有2只脚,兔有4只脚,如果已知鸡和兔的总头数为h,总脚数为f,问笼中有鸡和兔各多少只?

我是菜鸟 题目都搞不懂什么意思,列出数学方程倒很简单,但做出来模型到不知道如何下手

Private Sub Form_Click()
Dim a As Integer, b As Integer
a = InputBox("请输入鸡兔的总头数")
b = InputBox("请输入鸡兔的总脚数")
Print "输入鸡兔的总脚数:" & a
Print "输入鸡兔的总脚数:" & b
x = (4 * a - b) / 2
y = (b - 2 * 4) / 2

Print "鸡为:" & x & "只, 兔为:" & y & "只"
End Sub

dim h as integer,f as integer
h=inputbox("请输入鸡兔的总头数","鸡兔同笼")
f=inputbox("请输入鸡兔的总脚数","鸡兔同笼")
x=(4*h-f)/2
y=(f-2*4)/2
print"输入鸡兔的总脚数:";h
print"输入鸡兔的总脚数:";f
print"鸡为";x;"只","兔为";y;"只"