窗体设计可以按照我的截图!控件就不说了!很简单!添加控件后直接把代码复制进去就行了!
代码如下:'判断数据是否是整数!
PublicFunctionisInt(sAsString)AsBoolean
IfCStr(CInt(Val(s)))=sThen
isInt=True
Else
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)
Else
err=err+"头数不是正整数!"
EndIf
IfisInt(Text2.Text)Then
f_num=CInt(Text2.Text)
Else
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,"结果显示"
Else
MsgBoxerr,vbOKOnly,"出错了"
EndIf
EndSub
如果觉得《vb用计算机解决鸡兔同笼 vb解决鸡兔同笼问题》对你有帮助,请点赞、收藏,并留下你的观点哦!