VBS脚本引擎。实现标准的四舍五入
作者：1907635162
//示例: 四舍五入(4.4589, 2)
功能 四舍五入(小数, 保留几位小数)
var vbs = com("ScriptControl")
vbs.Language= "VBScript"
var s= "Cstr(Round(" & 小数 & ", " & 保留几位小数 & "))"
返回 vbs.Eval(s)
结束