haodawei123的博客

代码 Private Sub Command1_Click() On Error GoTo scError Dim strFun As String Dim a, b As Long x = 2 b = 3 strFun = “function Add(a,b)” & vbCrLf & “Add=a+b+s” & vbCrLf & “End Function” & vbCrLf ScriptControl1.Modules.Add “MyCode” ScriptCon

https://blog.youkuaiyun.com/jane007123/article/details/78191080