[已解决]为什么VBS使用CDbl函数来将变量转化成双精度浮点数，但是运行报错

LTSC1809 · 发表于 2023-5-9 19:56:05

我制作的计算器中不管选择哪种运算，两个数字输入完后会报错:变量使用了一个VBScript中不支持的Automation类型‘CDbl’，但是因为inputbox返回的是字符串，所以我用cdbl来转化成双精度浮点数有什么错，这里关于自己定义的函数的名称，MUL是做乘法的函数，DIV是做除法的，ADD是做加法的，aSUB是做减法的，为什么现在会报错？代码如下:

Function MUL(a,b)
CDbl(a)
CDbl(b)
s=a*b
MUL=s
End Function
Function DIV(a,b)
CDbl(a)
CDbl(b)
s=a/b
DIV=s
End Function
Function ADD(a,b)
CDbl(a)
CDbl(b)
s=a+b
ADD=s
End Function
Function aSUB(a,b)
CDbl(a)
CDbl(b)
s=a-b
aSUB=s
End Function
Dim sel,user_inputa,user_inputb,output
sel=InputBox("选择一种运算:1=乘法;2=除法;3=加法;4=减法","计算器")
If sel="1" Then
user_inputa=InputBox("a:","计算器")
user_inputb=InputBox("b:","计算器")
output=MUL(user_inputa,user_inputb)
MsgBox output,vbokonly,"输出"
ElseIf sel="2" Then
user_inputa=InputBox("a","计算器")
user_inputb=InputBox("b","计算器")
output=DIV(user_inputa,user_inputb)
MsgBox output,vbokonly,"输出"
ElseIf sel="3" Then
user_inputa=InputBox("a","计算器")
user_inputb=InputBox("b","计算器")
output=ADD(user_inputa,user_inputb)
MsgBox output,vbokonly,"输出"
ElseIf sel="4" Then
user_inputa=InputBox("a","计算器")
user_inputb=InputBox("b","计算器")
output=aSUB()
MsgBox output,vbokonly,"输出"
End If

复制代码

LTSC1809 · 发表于 2023-5-9 20:13:18

因为cdbl函数需要将变量放在等号左边，然后是把cdbl的返回值赋值给等号左边的变量，示例：
a=cdbl(b)

jyswjjgdwtdtj · 发表于 2023-5-9 21:15:41

Function MUL(a,b)
CDbl(a)
CDbl(b)
s=a*b
MUL=s
End Function

复制代码

你这什么鬼？

jyswjjgdwtdtj · 发表于 2023-5-9 21:17:21

cdbl是一个函数！一般来说函数都是不改变参数的值的！
你可以理解为

function cdbl(byval str)
'str被一系列操作
cdbl=str
end function

复制代码

jyswjjgdwtdtj · 发表于 2023-5-9 21:18:33

还有你直接除不行么？
vbs作为一门脚本语言这种自动的变量类型转换功能还是有的

LTSC1809 · 发表于 2023-5-9 23:24:05

回复 5# jyswjjgdwtdtj 好吧确实可以

LTSC1809 · 发表于 2023-5-9 23:26:16

回复 3# jyswjjgdwtdtj 不好意思，发现报错以后我还以为是什么大小写啊，什么括号里的内容格式不对什么的，我也是后来才发现忘了把返回值赋值给变量，会表示已解决的

LTSC1809 · 发表于 2023-5-9 23:27:39

回复 4# jyswjjgdwtdtj
回复 3# jyswjjgdwtdtj 不好意思，发现报错以后我还以为是什么大小写啊，什么括号里的内容格式不对什么的，我也是后来才发现忘了把返回值赋值给变量，会表示已解决的

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

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

[问题求助] [已解决]为什么VBS使用CDbl函数来将变量转化成双精度浮点数，但是运行报错

评分

评分

浏览过的版块