请教个关于VB计算器的问题

Dim operator As String '定义字符串型变量

Private Sub Command1_等于_Click()
On Error GoTo abc
Select Case operator
Case "加"
Text2.Text = CCur(Text1.Text) + CCur(Text2.Text)
Case "减"
Text2.Text = CCur(Text1.Text) - CCur(Text2.Text)
Case "乘"
Text2.Text = CCur(Text1.Text) * CCur(Text2.Text)
Case "除"
If CCur(Text2.Text) = 0 Then
MsgBox "除数不能为0", 48, "计算器"
Else
Text3.Text = CCur(Text1.Text) / CCur(Text2.Text)
End If
End Select
Exit Sub
abc: '错误陷阱语句标号，捕获到错误后转移到此处执行代码
MsgBox "运算数必须是十进制数字，并且除数不能为0", 48, "计算器"
Resume Next '等待捕捉下一个错误
End Sub

Private Sub Command2_清除_Click()
Text1.Text = ""
Text1.Refresh
Text2.Text = ""
Text2.Refresh
Text1.SetFocus '将输入焦点控制设置到文本框Text1上
End Sub

Private Sub Command3_帮助_Click()
Form2_帮助.Show
En

请教个关于VB计算器的问题 关于VB计算器的问题 请教个关于VB的问题 VB编写的计算器问题 VB中 计算器的问题 请教关于VB的问题 关于vb的问题 请教 关于VB计算器 用VB.net编计算器的问题 VB设计简易计算器的问题