中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [讨论][分享]利用批处理进行加减乘除运算

axi
中级用户

脚本爱好者

积分 238
发帖 93
注册 2007-3-11
来自 GZ
状态离线

『楼主』: [讨论][分享]利用批处理进行加减乘除运算

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

2007-3-14 01:12

(453623262)

jmz573515
银牌会员

积分 1212
发帖 464
注册 2006-12-13
状态离线

『第 2 楼』:

好像结果不对啊

2007-3-14 01:27

vkill
金牌会员

积分 4103
发帖 1744
注册 2006-1-20
来自甘肃.临泽
状态离线

『第 3 楼』:

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

2007-3-14 01:57

zh159
金牌会员

积分 3687
发帖 1467
注册 2005-8-8
状态离线

『第 4 楼』:

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

2007-3-14 02:09

lxmxn
版主

积分 11386
发帖 4938
注册 2006-7-23
状态离线

『第 5 楼』:

　　结果好像不对：

  Quote:
  请输入算式: 2-5*2+6-9

  算式: 2-5*2+6-9=(11.00)

请按任意键继续. . .

2007-3-14 02:31

electronixtar
铂金会员

积分 7493
发帖 2672
注册 2005-9-2
状态离线

『第 6 楼』:

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

收工，闪人。

此帖被 +2 点积分

点击查看详情

C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"

2007-3-14 02:37

vkill
金牌会员

积分 4103
发帖 1744
注册 2006-1-20
来自甘肃.临泽
状态离线

『第 7 楼』:

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

2007-3-14 02:43

zh159
金牌会员

积分 3687
发帖 1467
注册 2005-8-8
状态离线

『第 8 楼』:

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

2007-3-14 02:49

lxmxn
版主

积分 11386
发帖 4938
注册 2006-7-23
状态离线

『第 9 楼』:

　　用 Windows PowerShell 1.0 ，在CMD命令行执行：

Quote:
powershell 7*8-9+(3+4)*2
61

powershell 7/8
0.875

powershell 1/3
0.333333333333333

powershell 45.7*32
1462.4

2007-3-14 02:54