VB简单计算器源码

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