vb中计算器的编码怎么写 请又能力的 把各个按钮的的代码 都写给我

Public sum As Double
Public i As String
Public a As Double
Public n As Double

Private Sub Command1_Click()
Text1.Text = ""
Label.Caption = ""
End Sub

Private Sub Command10_Click()
Text1.Text = Sqr(Text1.Text)
End Sub

Private Sub Command11_Click()
Text1.Text = Text1.Text & 7
End Sub

Private Sub Command12_Click()
Text1.Text = Text1.Text & 8
End Sub

Private Sub Command13_Click()
Text1.Text = Text1.Text & 9
End Sub

Private Sub Command14_Click()
sum = Text1.Text
Text1.Text = ""
i = "/"
End Sub

Private Sub Command15_Click()
Text1.Text = Text1.Text * 100 & "%"
End Sub

Private Sub Command16_Click()
Text1.Text = Text1.Text & 4
End Sub

Private Sub Command17_Click()
Text1.Text = Text1.Text & 5
End Sub

Private Sub Command18_Click()
Text1.Text = Text1.Text & 6
End Sub

Private Sub Command19_Click()
sum = Text1.Text
Text1.Text = ""
i = "*"
End Sub

Private Sub Command2_Click()
n = Text1.Text
End Sub

Private Sub Command20_Click()
Text1.Text = 1 / Text1.Text
End Sub

Private Sub Command21_Click()
Text1.Text = Text1.Text & 1
End Sub

Private Sub Command22_Click()
Text1.Text = Text1.Text & 2
End Sub

Private Sub Command23_Click()
Text1.Text = Text1.Text & 3
End Sub

Private Sub Command24_Click()
sum = Text1.Text
Text1.Text = ""
i = "-"
End Sub

Private Sub Command25_Click()
Text1.Text = Text1.Text & 0
End Sub

Private Sub Command26_Click()
Text1.Text = Text1.Text & "."
End Sub

Private Sub Command27_Click()
sum = Text1.Text
Text1.Text = ""
i = "+"
End Sub

Private Sub Command28_Click()
a = Text1.Text
If i = "+" Then
sum = sum + a
Text1.Text = sum
ElseIf i = "+" Then
sum = sum + a
Text1.Text = sum
ElseIf i = "-" Then
sum = sum - a
Text1.Text = sum
ElseIf i = "*" Then
sum = sum * a
Text1.Text = sum
ElseIf i = "/" Then
If a = 0 Then
Text1.Text = "除数不能为零"
Else: sum = sum / a
Text1.Text = sum
End If
End If
End Sub

Private Sub Command3_Click()
n = Val(Text1.Text)
Label1.Caption = "M"
End Sub

Private Sub Command4_Click()
n = n + Val(Text1.Text)
Text1.Text = n
End Sub

Private Sub Command6_Click()
Text1.Text = Left$(Text1.Text, Len(Text1.Text) - 1)
End Sub

Private Sub Command7_Click()
Text1.Text = ""
End Sub

Private Sub Command8_Click()
Text1.Text = ""
End Sub