可以借用脚本来实现表达式的计算,它可以进行较复杂的计算: '// 表达式计算 Public Function ExpressionsEvaluate(ByVal strExpressions As String) As Currency Dim objEvaluate As Object On Error GoTo LocalErr '// 创建一个脚本对象 Set objEvaluate = CreateObject("MSScriptControl.ScriptControl") With objEvaluate '// 设置脚本语言为 VBScript .Language = "VBScript" '// 利用 VBScript 脚本的 Eval 函数来计算表达式 ExpressionsEvaluate = .Eval(strExpressions) End With Set objEvaluate = Nothing Exit Function LocalErr: Err.Clear ExpressionsEvaluate = 0 Set objEvaluate = Nothing End Function Private Sub Command1_Click() '// 简单的加法计算 Debug.Print ExpressionsEvaluate("5+5+5") '// 复合计算 Debug.Print ExpressionsEvaluate("(1+3)*5/2") End Sub
◆◆
评论读取中....
请登录后再发表评论!
◆◆
修改失败,请稍后尝试