中国DOS联盟

利用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 ]

好像结果不对啊

一起讨论过的啊~纯用p + - * / 都可以算，开方不行

加减乘除混合运算都可以还可以设定小数精度（现设定为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 ]

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

收工，闪人。

交给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

数字相同，只是负号便成了括号-_-|||

呵呵，ztm的好啊~百花齐放，好久没有这个“气氛”了

都是P高人，小弟正在努力学习。