写了一个创建随机算式的小程序，不可避免的会遇到被0除的情况，由于使用的是eval，比如8/（6-6）这样的算式感觉判断起来也比较麻烦，想问一下有没有啥办法使得在报错（被0除法）的时候能直接返回一个值

if then

这就是单用eval的结果，因为表达式未知，只能事后捕获错误

Private Function GetResult$
Dim Sc As Object
Set Sc = CreateObject("ScriptControl")
Sc.Language = "vbScript"
On Error GoTo ErrLine
GetResult = "结果 = " + Trim(Sc.Eval(表达式))
Exit Function
ErrLine:
GetResult = "错误号 = " + Trim(Err.Number) + "，错误描述：" + Err.Description
End Function