CodePudding user response:
There is a written before, a lot of single, you can consult qq: 3185765492CodePudding user response:
Private Sub Form_Load ()
The Debug. Print Eval (" 1 + (2 * 3-4)/5 * 6-7 + 8 ")
End Sub
The Public Function Eval (ByVal iStr As String) As String
Dim VBS As Object
The Set VBS=CreateObject (" MSScriptControl. ScriptControl)
VBS. Language="VBScript"
The Eval=VBS. Eval (iStr)
The Set of VBS=Nothing
End the Function
Do it at your
CodePudding user response:
The calculation precision of VBScript than Windows 7 calculator, I guess,CodePudding user response:
The