Private Sub Command1_Click(Index As Integer) '一个按钮数组:0-9,+,-,*,/,^
If flag Then
Text1 = ""
flag = False
End If
Text1 = Text1 & Command1(Index).Caption
End Sub
Private Sub Command2_Click() '按钮=
Dim s
If Text1 = "" Then Exit Sub
On Error GoTo errHandler
Set s = CreateObject("ScriptControl")
s.Language = "VBScript"
Text1 = s.Eval(Text1)
Set s = Nothing
flag = True
Exit Sub
errHandler: Text1 = "E"
End Sub
Private Sub Command3_Click() '按钮C
Text1 = ""
End Sub