如何使用vbs解答一道初中数学题i,x,y-创新互联

这篇文章将为大家详细讲解有关如何使用vbs解答一道初中数学题i,x,y，小编觉得挺实用的，因此分享给大家做个参考，希望大家阅读完这篇文章后可以有所收获。

创新互联自2013年创立以来，先为黔西等服务建站，黔西等地企业，进行企业商务咨询服务。为黔西企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

一道初中数学题，用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～?:")
if IsNumeric(l) then
msg4=l+" 中搜索答案"
for i=1 to l
   x=int(sqr(i+100))
   y=int(sqr(i+168))
   if x^2=i+100 and y^2=i+168 then
    msg3="那么 i,X,Y分别是："+cstr(i)+","+cstr(x)+","+cstr(y)
    msgbox msg1+msg2+msg3,vbokonly,msg4
    n=1
   exit for
   end if
next
if n=0 then
   msg3="那么 没有找到合适的答案！"
   msgbox msg1+msg2+msg3,vbokonly, msg4
end if
else
msg3="那么 没有找到合适的答案！"
msgbox msg1+msg2+msg3,vbokonly, "搜索范围有问题！"
end if

-------------------------------
结论是156，16，18

关于“如何使用vbs解答一道初中数学题i,x,y”这篇文章就分享到这里了，希望以上内容可以对大家有一定的帮助，使各位可以学到更多知识，如果觉得文章不错，请把它分享出去让更多的人看到。

网页名称：如何使用vbs解答一道初中数学题i,x,y-创新互联
分享路径：http://cdiso.cn/article/cdicps.html