帮忙用VB程序解一道题

来源：百度知道 编辑：UC知道 时间：2024/06/09 06:59:42
笼子里有鸡和兔共50只，只知道鸡和兔子的腿共有160条，问鸡和兔各有多少只？
⑴分析问题，列出数学表达式；
⑵写出解题的算法；

好问题，用个for循环和判断语句来写
Private Sub Command1_Click()
Dim tuzi As Integer
Dim ji As Integer
For tuzi = 1 To 40
For ji = 1 To 80
If tuzi * 4 + ji * 2 = 160 And tuzi + ji = 50 Then
'如果兔子和鸡的总的腿数为160，并且兔子加鸡为50，即得结果
MsgBox ("兔子和鸡的个数分别为：" & tuzi & "、" & ji)
End If
Next
Next
End Sub

呵呵，我最近想解决什么问题都会想到for和if，没得救了!还有就是，兔子是四条腿的吧？

(1)设鸡x只，兔y只，则根据题意可列出方程组：
x+y=50
2x+4y=160，解得x=30，y=20
(2)dim m as integer,n as integer
m=50
n=160
print "共有鸡";2*m-n/2;"只，";
print "共有兔";n/2-m;"只。"

楼上同志！你的二元一次方程组解反了，方程组是对了但是x＝20，y＝30 嘻嘻

for chicken=0 to 50
rabbit=50 - chicken
if 2 * chicken + 4 * rabbit = 160 then print "Chicken:" & chicken _
& " Rabbit:" & rabbit
next chicken