jyswjjgdwtdtj

Function MUL(a,b)
	CDbl(a)
	CDbl(b)
	s=a*b
	MUL=s
End Function
复制代码

你这什么鬼？

jyswjjgdwtdtj

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

function cdbl(byval str)
'str被一系列操作
cdbl=str
end function
复制代码

jyswjjgdwtdtj

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