一道初中数学题，用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