计算器的vb代码是什么？

Dim 符号 As String
Private Sub Command1_Click()
Select Case 符号
Case "+"
Text3 = Val(Text1) + Val(Text2)
Case "-"
Text3 = Val(Text1) - Val(Text2)
Case "*"
Text3 = Val(Text1) * Val(Text2)
Case "/"
Text3 = Val(Text1) / Val(Text2)
End Select
End Sub

Private Sub Form_Load()
Command1.Enabled = False
Command1.Caption = "运算"
Text1 = ""
Text2 = ""
Text3 = ""
Option1.Caption = "加"
Option2.Caption = "减"
Option3.Caption = "乘"
Option4.Caption = "除"
End Sub

Private Sub Option1_Click()
If Option1.Value = True Then 符号 = "+"
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then 符号 = "-"
End Sub
Private Sub Option3_Click()
If Option3.Value = True Then 符号 = &qu