vbs解答一道初中數(shù)學題i,x,y
更新時間:2008年07月21日 18:42:43 作者:
vbs解答 一道初中數(shù)學題 i+100=x^2 i+168=y^2 求 i,x,y
一道初中數(shù)學題,用VBS找到答案
未知數(shù)~i 加上100成為一個完全平方數(shù)~X,i 加上168成為另外一個完全平方數(shù)~Y,i,x,y都是正整數(shù),求出i,x,y
---------------------------------------------------
n=0
msg1="未知數(shù)~i 加上100成為一個完全平方數(shù)~X"+chr(10)
msg2="i 加上168成為另外一個完全平方數(shù)~Y"+chr(10)+"i,x,y都是正整數(shù)"+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
-------------------------------
結(jié)論是156,16,18
未知數(shù)~i 加上100成為一個完全平方數(shù)~X,i 加上168成為另外一個完全平方數(shù)~Y,i,x,y都是正整數(shù),求出i,x,y
---------------------------------------------------
n=0
msg1="未知數(shù)~i 加上100成為一個完全平方數(shù)~X"+chr(10)
msg2="i 加上168成為另外一個完全平方數(shù)~Y"+chr(10)+"i,x,y都是正整數(shù)"+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
-------------------------------
結(jié)論是156,16,18
相關文章
VBScript教程 第十二課VBScript頁面的簡單樣例
VBScript教程 第十二課VBScript頁面的簡單樣例...2006-11-11VBS基礎篇 - 循環(huán)(for、Do、While)
經(jīng)常地,當編寫代碼時,我們希望將一段代碼執(zhí)行若干次,我們可以在代碼中使用循環(huán)語句來完成這項工作,需要的朋友可以參考下2018-05-05用VBS實現(xiàn)一個小鍵盤動作CTRL+V粘貼操作與思路分析
我想實現(xiàn)當有跳出窗口"請輸入"時的1.8秒后就發(fā)送一次 CTRL + V,把本來已經(jīng)復制到剪切版中的文字自動粘貼過去呢2009-12-12輸入mdb數(shù)據(jù)庫即可將打包的mdb文件解包
2008-01-01vbs 查找硬盤分區(qū)中指定擴展名文件的實現(xiàn)代碼
vbs 用于查找硬盤所有分區(qū)中指定擴展名文件的代碼,有需要的朋友可以參考下。挺實用的一段代碼,用來深入學習vbs,確實不錯2014-05-05