Private Sub Form_Load() Dim sc As Object Set sc = CreateObject("ScriptControl") sc.Language = "VBScript" S = sc.Eval("123 + 4")‘或S = sc.Eval("123" & "+" & "4") MsgBox S End Sub
时间: 2024-10-12 11:50:13
Private Sub Form_Load() Dim sc As Object Set sc = CreateObject("ScriptControl") sc.Language = "VBScript" S = sc.Eval("123 + 4")‘或S = sc.Eval("123" & "+" & "4") MsgBox S End Sub