'引用 Microsoft Script Control 1.0Option Explicit Dim obj As ScriptControl Private Sub Command1_Click() On Error Resume Next Set obj = New ScriptControl obj.Language = "VBScript" Text1.Text = obj.Eval(Text1.Text) Set obj = Nothing End Sub Private Sub Form_Load() Text1.Text = "(3+4)/2" End Sub
Dim obj As ScriptControl
Private Sub Command1_Click()
On Error Resume Next
Set obj = New ScriptControl
obj.Language = "VBScript"
Text1.Text = obj.Eval(Text1.Text)
Set obj = Nothing
End Sub
Private Sub Form_Load()
Text1.Text = "(3+4)/2"
End Sub
EbExecuteLine 这个API的说明在那里可以找到?