问题标题：
【编写程序,求“鸡兔同笼”问题.鸡有2只脚,兔有4只脚,如果已知鸡和兔的总头数为h,总脚数为f,问笼中鸡和兔各有多少只?】
问题描述：
编写程序,求“鸡兔同笼”问题.鸡有2只脚,兔有4只脚,如果已知鸡和兔的总头数为h,总脚数为f,问笼中鸡和兔各有多少只?
皮明智回答：
PrivateSubcmd1_Click()
DimxAsInteger
DimyAsInteger
h=Val(Text1.Text)
f=Val(Text2.Text)
x=2*h-f/2
y=f/2-h
MsgBox"鸡的只数为："&x&vbCrLf&"兔子的只数为："&y
EndSub
查看更多
