天狼工作室 http://www.j2soft.cn/ Option Explicit'工程/引用/Microsoft Script Control 1.0 Dim cale As New ScriptControlPrivate Sub Command1_Click() Dim a As String, b As String, c As String, d As String, e As String, f As String, g As String
cale.Language = "VBScript"
a = "3" b = "*" c = "2" d = "+" e = "2" f = "*" g = "4"
MsgBox cale.Eval(a & b & c & d & e & f & g) End Sub
输入的字符应该不是随意的吧.
Option Explicit'工程/引用/Microsoft Script Control 1.0
Dim cale As New ScriptControlPrivate Sub Command1_Click()
Dim a As String, b As String, c As String, d As String, e As String, f As String, g As String
cale.Language = "VBScript"
a = "3"
b = "*"
c = "2"
d = "+"
e = "2"
f = "*"
g = "4"
MsgBox cale.Eval(a & b & c & d & e & f & g)
End Sub