vbs解答一道初中數(shù)學(xué)題i,x,y
一道初中數(shù)學(xué)題,用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
上一篇:adodb.stream讀文件到數(shù)組的代碼
欄 目:vb
下一篇:vbs的sort排序
本文標(biāo)題:vbs解答一道初中數(shù)學(xué)題i,x,y
本文地址:http://mengdiqiu.com.cn/a1/vb/7643.html
您可能感興趣的文章
- 01-10下載文件到本地運(yùn)行的vbs
- 01-10VBS中的正則表達(dá)式的用法大全 <font color=red>原創(chuàng)&
- 01-10VBS中SendKeys的基本應(yīng)用
- 01-10VBScript教程 第十一課深入VBScript
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript語法速查及實(shí)例說明
- 01-10VBS中Select CASE的其它用法
- 01-10VBScript教程 第七課使用條件語句
- 01-10vbscript 可以按引用傳遞參數(shù)嗎?
- 01-10VBScript教程 第二課在HTML頁面中添加VBscript代碼


閱讀排行
本欄相關(guān)
- 01-10下載文件到本地運(yùn)行的vbs
- 01-10飄葉千夫指源代碼,又稱qq刷屏器
- 01-10SendKeys參考文檔
- 01-10什么是一個高效的軟件
- 01-10VBS中的正則表達(dá)式的用法大全 &l
- 01-10exe2swf 工具(Adodb.Stream版)
- 01-10VBS中SendKeys的基本應(yīng)用
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript教程 第十一課深入VBScript
- 01-10VBScript語法速查及實(shí)例說明
隨機(jī)閱讀
- 01-10SublimeText編譯C開發(fā)環(huán)境設(shè)置
- 08-05織夢dedecms什么時候用欄目交叉功能?
- 01-10使用C語言求解撲克牌的順子及n個骰子
- 08-05dedecms(織夢)副欄目數(shù)量限制代碼修改
- 01-11Mac OSX 打開原生自帶讀寫NTFS功能(圖文
- 01-10C#中split用法實(shí)例總結(jié)
- 01-11ajax實(shí)現(xiàn)頁面的局部加載
- 01-10delphi制作wav文件的方法
- 08-05DEDE織夢data目錄下的sessions文件夾有什
- 04-02jquery與jsp,用jquery