如何使用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://scyanting.com/article/cdicps.html