一道初中數學題，用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