[20171031更新]一行VBS代码构造强力计算器！

老刘1号 · 发表于 2017-3-23 12:23:52

本帖最后由老刘1号于 2017-11-1 12:37 编辑

老刘原创，如有雷同，纯属巧合

EXECUTE "MSGBOX ""结果："" & "&INPUTBOX("输入算式：")

复制代码

MsgBox "结果：" & Eval(InputBox("输入算式："))

复制代码

2017-10-31补充了各种函数及其返回值，基本照抄微软参考文档

角度转弧度：
弧度=(Pi/180)*角度

可用函数：
Abs(number) '绝对值
Sgn(number)
如果 number 为|Sgn 返回
大于零             |1
等于零             |0
小于零             |-1
Sin(number) '正弦（弧度）
Cos(number)'余切（弧度）
Tan(number)'正切（弧度）
Atn(number) '反正切

利用 Atn 来计算 pi 的值:
Dim pi
pi = 4 * Atn(1) ' 计算 pi 的值。

Sqr(number) ‘返回平方根
Log(Number) '返回数值的自然对数(e)。
Exp(number) '返回 e（自然对数的底）的幂次方。

函数派生的等效公式
Secant（正割） Sec(X) = 1 / Cos(X)
Cosecant（余割） Cosec(X) = 1 / Sin(X)
Cotangent（余切） Cotan(X) = 1 / Tan(X)
Inverse Sine（反正弦） Arcsin(X) = Atn(X / Sqr(-X * X + 1))
Inverse Cosine（反余弦） Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
Inverse Secant（反正割） Arcsec(X) = Atn(X / Sqr(X * X - 1)) + Sgn((X) -1) * (2 * Atn(1))
Inverse Cosecant（反余割） Arccosec(X) = Atn(X / Sqr(X * X - 1)) + (Sgn(X) - 1) * (2 * Atn(1))
Inverse Cotangent（反余切） Arccotan(X) = Atn(X) + 2 * Atn(1)
Hyperbolic Sine（双曲正弦） HSin(X) = (Exp(X) - Exp(-X)) / 2
Hyperbolic Cosine（双曲余弦） HCos(X) = (Exp(X) + Exp(-X)) / 2
Hyperbolic Tangent（双曲正切） HTan(X) = (Exp(X) - Exp(-X)) / (Exp(X) + Exp(-X))
Hyperbolic Secant（双曲正割） HSec(X) = 2 / (Exp(X) + Exp(-X))
Hyperbolic Cosecant（双曲余割） HCosec(X) = 2 / (Exp(X) - Exp(-X))
Hyperbolic Cotangent（双曲余切） HCotan(X) = (Exp(X) + Exp(-X)) / (Exp(X) - Exp(-X))
Inverse Hyperbolic Sine（反双曲正弦） HArcsin(X) = Log(X + Sqr(X * X + 1))
Inverse Hyperbolic Cosine（反双曲余弦） HArccos(X) = Log(X + Sqr(X * X - 1))
Inverse Hyperbolic Tangent（反双曲正切） HArctan(X) = Log((1 + X) / (1 - X)) / 2
Inverse Hyperbolic Secant（反双曲正割） HArcsec(X) = Log((Sqr(-X * X + 1) + 1) / X)
Inverse Hyperbolic Cosecant（反双曲余割） HArccosec(X) = Log((Sgn(X) * Sqr(X * X + 1) +1) / X)
Inverse Hyperbolic Cotangent（反双曲余切） HArccotan(X) = Log((X + 1) / (X - 1)) / 2
以 N 为底的对数 LogN(X) = Log(X) / Log(N)

610100 · 发表于 2017-3-24 01:39:06

厉害。谢谢分享！

Nsqs · 发表于 2017-3-24 08:17:51

a=inputbox("输入:")
execute "a="&a
msgbox a

复制代码

更直观点

老刘1号 · 发表于 2017-3-24 12:08:38

回复 3# Nsqs

嗯，多费一个变量，不过可读性高了

老刘1号 · 发表于 2017-3-24 12:20:49

本帖最后由老刘1号于 2017-7-27 09:20 编辑

再附一个批处理调用版（灵感来自于PCL斑竹的一段代码）：
放到批处理文件末尾即可。

GOTO :EOF
:CALC
for /f %%a in ('mshta VBScript:Execute("CreateObject(""Scripting.Filesystemobject"").GetStandardStream(1).Write(%~1)"^)(close^)') do Echo.%%a

复制代码

用法：

Call :Calc 1+1-1+666-999 %计算前面一堆的结果%
Call :Calc 2^^10 %计算2的10次方%
Call :Calc 1024^^0.1 %计算1024的0.1次方%
Call :Calc 1.665544332211111111111111111123-0.55443322110000000000000012 %计算浮点数加减%
Call :Calc (9.9*9.9*9.9*9.9*9.9*9.9*9.9*9.9*9.9*9.9*9.9*9.9*9.9*9.9*9.9)^^(1/15) %计算浮点数相乘除，幂运算%

复制代码

返回可以用FOR收集

wskwfkbdn · 发表于 2017-3-24 12:39:52

回复 1# 老刘1号

顶老刘赞老刘

523066680 · 发表于 2017-3-24 12:49:50

很久以前，用的 eval，结合 cscript 放在终端环境里。

set inp=wscript.stdin
set put=wscript.stdout
put.writeline "input exit to exit"
while true
put.write "Test:"
yousay = inp.readline
if yousay="exit" then
wscript.quit
end if
x=eval(yousay)
put.writeline "x=" & x
wend

复制代码

eval.bat
cscript //nologo "%~dp0eval.vbs"

计算公式后用 x 指代上一次的结果。

后来发现 python 交互挺好，没怎么用了。

0000 · 发表于 2017-7-26 19:44:15

一旦算式里有什么问题或者...

a2002 · 发表于 2017-7-26 20:02:22

回复 8# 0000

这只是一行代码，不需要钻牛角尖

a2002 · 发表于 2017-7-26 20:17:40

不过这个三角函数计算的是弧度而不是角度...

老刘1号 · 发表于 2017-7-26 23:27:09

本帖最后由老刘1号于 2017-7-26 23:29 编辑

回复 10# a2002

确实是弧度
补充：

角度转弧度：
弧度=(Pi/180)*角度
Pi≈3.1415926535898

a2002 · 发表于 2017-7-26 23:42:17

技术超限了,回头顶你

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[原创] [20171031更新]一行VBS代码构造强力计算器！

评分

评分

评分