求vb控件数组编写的计算器代码

Option Explicit
Const PI = 3.14159265
Dim 弧度制 As Boolean
Dim 新数据 As Boolean
Dim 被运算数 As Double '第一个操作数
Dim 运算数 As Double '第二个操作数
Dim 当前运算符 As Integer '仅四则运算记录，函数不记录

Private Sub Command1_Click(Index As Integer) '数字键
If 新数据 Then
If Index <> 0 Then
Text1 = CStr(Index)
新数据 = False
End If
ElseIf Len(Text1) > 16 Then
Beep '报警二声
Beep
Exit Sub
Else
Text1 = Text1 & CStr(Index) '追加数据
End If
End Sub

Private Sub Command2_Click() '小数点
If Len(Text1.Text) > 16 Or InStr(Text1, ".") > 0 Then
Beep '报警二声
Beep
Exit Sub
End If
If 新数据 Then '以小数点开始前头补零
Text1 = "0."
新数据 = False
Else
Text1 = Text1 & "."
E