vbs解答一道初中數(shù)學(xué)題i,x,y
更新時(shí)間:2008年07月21日 18:42:43 作者:
vbs解答 一道初中數(shù)學(xué)題 i+100=x^2 i+168=y^2 求 i,x,y
一道初中數(shù)學(xué)題,用VBS找到答案
未知數(shù)~i 加上100成為一個(gè)完全平方數(shù)~X,i 加上168成為另外一個(gè)完全平方數(shù)~Y,i,x,y都是正整數(shù),求出i,x,y
---------------------------------------------------
n=0
msg1="未知數(shù)~i 加上100成為一個(gè)完全平方數(shù)~X"+chr(10)
msg2="i 加上168成為另外一個(gè)完全平方數(shù)~Y"+chr(10)+"i,x,y都是正整數(shù)"+chr(10)
l=inputbox (msg1+msg2+"請(qǐng)輸入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
-------------------------------
結(jié)論是156,16,18
未知數(shù)~i 加上100成為一個(gè)完全平方數(shù)~X,i 加上168成為另外一個(gè)完全平方數(shù)~Y,i,x,y都是正整數(shù),求出i,x,y
---------------------------------------------------
n=0
msg1="未知數(shù)~i 加上100成為一個(gè)完全平方數(shù)~X"+chr(10)
msg2="i 加上168成為另外一個(gè)完全平方數(shù)~Y"+chr(10)+"i,x,y都是正整數(shù)"+chr(10)
l=inputbox (msg1+msg2+"請(qǐng)輸入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
-------------------------------
結(jié)論是156,16,18
相關(guān)文章
VBScript把json字符串解析成json對(duì)象的2個(gè)方法
這篇文章主要介紹了VBScript把json字符串解析成json對(duì)象的2個(gè)方法,本文通過MSScriptControl.ScriptControl和jscript實(shí)現(xiàn),需要的朋友可以參考下2014-08-08
VBS教程:正則表達(dá)式簡(jiǎn)介 -選擇與編組
VBS教程:正則表達(dá)式簡(jiǎn)介 -選擇與編組...2006-11-11

