Vb 鸡兔同笼
Dimx,yAsInteger
a=InputBox("头数","Vb鸡兔同笼")
b=InputBox("脚数","Vb鸡兔同笼")脚数不能是单数或小于头数
Forx=0Toa
Fory=0Tob
Ifx+y=Val(a)Then
If2*x+4*y=Val(b)Then
Print"题目：";a;"个头，";b;"个脚，问：鸡和兔各有多少只？"
Print"鸡的只数是："&x
Print"兔的只数是："&y
EndIf
EndIf
EndSub
不知道是不是你想要的
vb解决鸡兔同笼问题
窗体设计可以按照我的截图！控件就不说了！很简单！添加控件后直接把代码复制进去就行了！
代码如下：判断数据是否是整数！
PublicFunctionisInt(sAsString)AsBoolean
IfCStr(CInt(Val(s)))=sThen
isInt=True
isInt=False
EndIf
EndFunction
根据头数和脚数求解兔子的数量的方程
PublicFunctionSolv(headAsInteger,footAsInteger)AsInteger
DimRabitAsInteger
Rabit=(foot-head*2)/2
Solv=Rabit
EndFunction
PrivateSubCommand1_Click()
DimerrAsString,OKAsString
Dimh_numAsInteger,f_numAsInteger
IfisInt(Text1.Text)Then
h_num=CInt(Text1.Text)
err=err+"头数不是正整数！"
EndIf
IfisInt(Text2.Text)Then
f_num=CInt(Text2.Text)
err=err+"脚数不是正整数！"
EndIf
Iferr=""Then
OK=OK&"兔子数量为："&CStr(Solv(h_num,f_num))&vbCrLf
OK=OK&"鸡的数量为："&CStr(h_num-Solv(h_num,f_num))&vbCrLf
MsgBoxOK,vbOKOnly,"结果显示"
MsgBoxerr,vbOKOnly,"出错了"
EndIf
EndSub
VB编程：鸡兔同笼问题
