Sub Calc()Dim Result As SingleSet MSSC = CreateObject("MSScriptControl.ScriptControl")MSSC.Language = "VBScript"Result = MSSC.Eval(Text1.Text)Label2.Caption = CStr(Result)End SubPrivate Sub Command1_Click()CalcEnd SubPrivate Sub Command2_Click()Text1.Text = ""End Sub
支付宝领红包
发表评论:
◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。