• VBScript code复制代码

  • Private Function Script(code As String) As String
        Dim obj As Object
        Set obj = CreateObject("MSScriptControl.ScriptControl")
        obj.AllowUI = True
        obj.Language = "JavaScript"
        Script = obj.Eval(code)End FunctionPrivate Sub Command1_Click()    MsgBox Script(Text1.Text)End Sub


测试:


  • JavaScript code复制代码

  • function add(s1,s2){ return s1+s2;
    }
    add(10,5);