vbs解答一道初中数学题i,x,y

一道初中数学题，用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

赞 (0)

相关推荐

  • vbs解答一道初中数学题i,x,y

    一道初中数学题,用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都是正整数"+ch

  • Input系统之InputReader处理触摸事件案例

    目录 正文 1. InputMapper 处理触摸事件 2. 收集触摸事件信息 3. 处理同步事件 3.1 同步数据 3.2 处理同步后的数据 3.2.1 加工数据 3.2.2 分发事件 结束 正文 手机一般有两种类型的输入设备.一种是键盘类型的输入设备,通常它包含电源键和音量下键.另一种是触摸类型的输入设备,触摸屏就属于这种类型. 键盘类型的输入设备一般都是产生按键事件,前面已经用几篇文章,分析了按键事件的分发流程. 触摸类型的输入设备一般都是产生触摸事件,本文就开始分析触摸事件的分发流程.

  • Javascript动画的实现原理浅析

    假设有这样一个动画功能需求:把一个div的宽度从100px变化到200px.写出来的代码可能是这样的: 复制代码 代码如下: <div id="test1" style="width: 100px; height: 100px; background: blue; color: white;"></div> function animate1(element, endValue, duration) {     var startTime =

  • 修改ini文件的批处理与vbs代码

    修改ini文件的批处理与vbs代码

    批处理代码: @echo off >tmp.ini for /f "tokens=1* delims=:" %%i in ('findstr /n ".*" 文件位置') do ( if "%%j"=="" (echo.>>tmp.ini) else ( echo %%j|find "被替换内容">nul&&( call set tp=%%j&call ech

  • vbs脚本大全，配有实例 DOS命令，批处理 脚本 代码

    VBS   取得本机IP strComputer = "."  Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration Where

  • SQLids.vbs 0.7(最终版，以后改成gui界面的)

    是有这个问题的.第一,应当用正则判断较好.第二,我用循环加返回结果大于30个长度就退出循环,我相信没有表名和字段名大于30个字母的,但是字段值有可能大于,这个地方解决的不够好.但是一般是用来查后台的管理员的用户名和密码,所以就放弃了. 复制代码 代码如下: set arg=wscript.arguments If (LCase(Right(Wscript.fullname,11))="Wscript.Exe") Then Wscript.Quit End If if arg.count

  • VBS 强制关闭Symantec Endpoint Protection的代码

    使用这个脚本,可以随时让它歇下来.当然也可以让它继续工作.前提是,你必须是本机管理员.这个脚本使用一各很过时的终止程序方法:ntsd.exe -c q -p ProcessID.所以以前有过一个bat版,之所以用VBS是因为效率高一点,而且没有太多的黑色窗口.主要思想是:循环终止程序+停止服务 代码如下: 复制代码 代码如下: 'On Error Resume Next' 检查操作系统版本Call CheckOS()Call MeEncoder() ' 程序初始化,取得参数If WScript.

  • 清除autorun.inf的批处理和vbs

    kill.bat 复制代码 代码如下: @echo off taskkill /f /im 病毒.exe cd\ for /d %%i in (C,d,,e,f,g,h,I,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z) do attrib -s -a -r -h %%i:\autorun.inf&attrib -s -a -r -h  %%i:\病毒.exe& del %%i:\病毒.exe&del %%i:\autorun.inf kill.vbs 复制代码

  • VBS实现GB2312,UTF-8,Unicode,BIG5编码转换工具

    演示 echo "ABCDE &!@#$ ^<>() %% abcde 测试!"> "处理前.txt" GB2Ue.vbs "处理前.txt" "处理后.txt" Ue2U8.vbs "处理后.txt" U82GB.vbs "处理后.txt" GB2U8.vbs "处理后.txt" U82Ue.vbs "处理后.txt"

  • 用VBS精确计算100的阶乘的实现代码

    今天又无聊的逛了一下搜搜问问,找到这样一个问题: 有谁能提供vbs里20的阶乘的详细程序 下面有人给出了这样的答案: 复制代码 代码如下: function jx(x) j=1 for i=2 to x j=j*i next jx=j end function msgbox jx(20) 运行一下上面的程序,输出2.43290200817664E+18.笑而不语,再次证明了我之前的结论,在这种网站上回答问题的,大部分水平都不咋地. 其实之前在<用VBS精确计算2的100次方>我已经写过了VBS

随机推荐