Board logo

标题: [讨论][分享]利用批处理进行加减乘除运算 [打印本页]
作者: axi     时间: 2007-3-14 01:12    标题: [讨论][分享]利用批处理进行加减乘除运算
利用VBS脚本，可以进行加减乘除运算，用批处理也可以进行数学运算吗？ dim a,b,s a=inputbox("请输入第一个数：","加法器") b=inputbox("请输入第二个数：","加法器") s=int(a)+int(b) msgbox(s) dim a,b,s a=inputbox("请输入第一个数：","减法器") b=inputbox("请输入第二个数：","减法器") s=a-b msgbox(s) dim a,b,s a=inputbox(msg,"乘法器","请在这里输入第一个数") b=inputbox(msg,"乘法器","请在这里输入第二个数") s=a*b msgbox(s) dim a,b,s a=inputbox(msg,"除法器","请在这里输入第一个数") b=inputbox(msg,"除法器","请在这里输入第二个数") s=a/b msgbox(s) [ Last edited by axi on 2007-4-11 at 09:35 PM ]
作者: jmz573515     时间: 2007-3-14 01:27
好像结果不对啊
作者: vkill     时间: 2007-3-14 01:57
一起讨论过的啊~纯用p + - * / 都可以算，开方不行
作者: zh159     时间: 2007-3-14 02:09
加减乘除混合运算都可以还可以设定小数精度（现设定为2位） 如：1+3*(5-6)/5 N次方：9^^3 开方：9^^(1/2)
@echo off
:Start
cls
echo.
set Sums=
set /p Sums=  请输入算式: 
if not defined Sums exit
>Sums.vbs echo Sums = %Sums%
>>Sums.vbs echo Wscript.Echo "  算式:",wscript.arguments(0) + "=" + FormatNumber(Sums,2,-1,-1,0)
echo.
cscript //nologo Sums.vbs %Sums%
del Sums.vbs
echo.
pause
goto Start
[ Last edited by zh159 on 2007-3-13 at 01:12 PM ]
作者: lxmxn     时间: 2007-3-14 02:31
　　结果好像不对：
请输入算式: 2-5*2+6-9 算式: 2-5*2+6-9=(11.00) 请按任意键继续. . .
作者: electronixtar     时间: 2007-3-14 02:37
iCalc.bat:
:'Code by est@CN-DOS
:On Error Resume Next
:Sub bat
echo off & cls
echo '>nul & cmd /kCscript //e:vbscript //NoLogo "%~f0" %*
Exit Sub:End Sub
WScript.Echo eval(WScript.Arguments(0))
测试： iCalc.bat 1+1 2 iCalc.bat 3.14/7 .448571428571429 iCalc.bat sin(1)+sqr(2) 2.25568454718099 收工，闪人。
作者: vkill     时间: 2007-3-14 02:43
交给awk去计算
@echo off
:Start
cls
echo.
set Sums=
set /p Sums= 请输入算式: 
if not defined Sums exit
set/p= 计算结果=<nul
echo.|gawk "{print %Sums%}"
pause>nul
goto Start
作者: zh159     时间: 2007-3-14 02:49
数字相同，只是负号便成了括号-_-|||
作者: lxmxn     时间: 2007-3-14 02:54
　　用 Windows PowerShell 1.0 ，在CMD命令行执行：
powershell 7*8-9+(3+4)*2 61 powershell 7/8 0.875 powershell 1/3 0.333333333333333 powershell 45.7*32 1462.4
作者: vkill     时间: 2007-3-14 02:59
呵呵，ztm的好啊~百花齐放，好久没有这个“气氛”了
作者: lxmxn     时间: 2007-3-14 03:10
::MCalc.bat
@echo off
if "%1"=="" exit
mshta vbscript:msgbox(%1)(window.close)
附件 1: MCalc.JPG (2007-3-14 03:10, 7.13 KiB, 下载附件所需积分 1点 ,下载次数： 2)


作者: axi     时间: 2007-3-14 04:56
都是P高人，小弟正在努力学习。