7,763
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
'工程/引用/Microsoft Script Control 1.0
Dim cale As New ScriptControl
Private 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