神剑山庄资源网 Design By www.hcban.com
一道初中数学题,用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
未知数~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
标签:
vbs,初中
神剑山庄资源网 Design By www.hcban.com
神剑山庄资源网
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
神剑山庄资源网 Design By www.hcban.com
暂无vbs解答一道初中数学题i,x,y的评论...
更新日志
2024年10月04日
2024年10月04日
- 群星.2020-同步过冬2020冀待晴空【环球】【WAV+CUE】
- 沈雁.1986-四季(2012梦田复刻版)【白云唱片】【WAV+CUE】
- 纪钧瀚《胎教古典音乐 钢琴与大提琴的沉浸时光》[FLAC/分轨][257.88MB]
- 《国语老歌 怀旧篇 3CD》[WAV/分轨][1.6GB]
- 班得瑞原装进口《第九张新世纪专辑:微风山谷》1CD[APE/CUE分轨][331MB]
- 陈慧琳.2008-Love.Fighters演唱会3CD(2024环球红馆40复刻系列)【环球】【WAV+CUE】
- 米志宏.1994-HAPPY1994【波丽佳音】【WAV+CUE】
- 潘美辰.2006-最冷的夏天(引进版)【美梦辰真】【WAV+CUE】
- 班得瑞原装进口《第十张新世纪专辑:月光水岸》1CD[APE/CUE分轨][277.2MB]
- 班得瑞原装进口《第十一张新世纪专辑:雾色山脉》1CD[APE/CUE分轨][291.6MB]
- 班得瑞原装进口《第十二张新世纪专辑:翡翠谷》1CD[APE/CUE分轨][307.9MB]
- 高卿尘.2024-情绪商店【Hahahai】【FLAC分轨】
- 王恩喆.2024-黄沙【KOOD】【FLAC分轨】
- 邓丽君.1983-漫步人生路(2024环球MQA-UHQCD限量版)【环球】【WAV+CUE】
- 陈容森.1996-情断【上华】【WAV+CUE】