标题: [讨论][分享]利用批处理进行加减乘除运算 [打印本页]
作者: 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 ]: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
作者: lxmxn 时间: 2007-3-14 02:31
结果好像不对：
| Quote: | |
|
作者: 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))
测试：: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
: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命令行执行：
| Quote: | |
|
作者: 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)
@echo off
if "%1"=="" exit
mshta vbscript:msgbox(%1)(window.close)
附件 1:MCalc.JPG (2007-3-14 03:10, 7.13 K, 下载附件所需积分 1点 ,下载次数： 2)
作者: axi 时间: 2007-3-14 04:56
都是P高人，小弟正在努力学习。