早教吧 育儿知识 作业答案 考试题库 百科 知识分享

“鸡兔同笼”问题解法我自己做的,不知能否更精简:毕竟VB越精简越实用PrivateSubFormclick()Dimh,mAsLongh=Val(InputBox("请输入兔和鸡总头数"))m=Val(InputBox("总脚数"))x=(m-2*h)/2y=(4*h-m)/2Ifx>0Andy&gt

题目详情
“鸡兔同笼”问题解法我自己做的,不知能否更精简:毕竟VB越精简越实用 PrivateSubForm_click() Dimh,mAsLong h=Val(InputBox("请输入兔和鸡总头数")) m=Val(InputBox("总脚数")) x=(m-2*h)/2 y=(4*h-m)/2 Ifx>0Andy>0Then Printx,y Else Print"输入错误" EndIf EndSub
▼优质解答
答案和解析
对的啊~~