中国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高人，小弟正在努力学习。