vbs解答一道初中数学题i,x,y
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 一道初中数学题，用VBS找到答案 未知数～i加上100成为一个完全平方数～X，i加上168成为另外一个完全平方数～Y，i,x,y都是正整数，求出i,x,y --------------------------------------------------- n=0 msg1="未知数～i加上100成为一个完全平方数～X"+chr(10) msg2="i加上168成为另外一个完全平方数～Y"+chr(10)+"i,x,y都是正整数"+chr(10) l=inputbox(msg1+msg2+"请输入i的搜索范围,用来找到i,x,y.1～?:") ifIsNumeric(l)then msg4=l+"中搜索答案" fori=1tol x=int(sqr(i+100)) y=int(sqr(i+168)) ifx^2=i+100andy^2=i+168then msg3="那么i,X,Y分别是："+cstr(i)+","+cstr(x)+","+cstr(y) msgboxmsg1+msg2+msg3,vbokonly,msg4 n=1 exitfor endif next ifn=0then msg3="那么没有找到合适的答案！" msgboxmsg1+msg2+msg3,vbokonly,msg4 endif else msg3="那么没有找到合适的答案！" msgboxmsg1+msg2+msg3,vbokonly,"搜索范围有问题！" endif ------------------------------- 结论是156，16，18 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: TCP版backshell的VBS脚本代码下一篇: 自己写的一个定时关机或重启的vbs脚本
关于vbs解答一道初中数学题i,x,y的所有评论
