请问你能给我一个简单的用VB编写的计算器程序代码么

Private Sub cmdClear_Click() '清除按钮，使三个文本框的内容为空
txt1.Text = ""
txt2.Text = ""
txt3.Text = ""
txt1.SetFocus
End Sub

Private Sub cmdDivision_Click() '使运算变为除
lblSign.Caption = "÷"
End Sub

Private Sub cmdMinus_Click() '使运算变为减
lblSign.Caption = "-"
End Sub

Private Sub cmdMulti_Click() '同上
lblSign.Caption = "×"
End Sub

Private Sub cmdPlus_Click() '同上
lblSign.Caption = "＋"
End Sub

Private Sub lblEqual_Click() '运算按钮，判断并进行各种运算
Select Case lblSign.Caption
Case "＋"
txt3.Text = CStr(Val(Trim(txt1.Text)) + Val(Trim(txt2.Text)))
Case "-"
txt3.Text = CStr(Val(Trim(txt1.Text)) - Val(Trim(txt2.Text)))
Case "×"
txt3.Text = CStr(Val(Trim(txt1.Text)) * Val(Trim(txt2.Text)))
Case "÷"
If Trim(txt2.Text) <> "0" Then
txt3.Text = CStr(Val(Trim(txt1.Text)) / Val(Trim(txt2.Text)))
Else
MsgBox "除数不能为零！", vbOKOnly + vbCritical, "系统提示"
txt2.Text = ""
txt2.SetFocus
End If
Case Else
MsgBox "输入的数字不对，请重新输入！", vbOKOnly + vbCritical, "系统提示"
cmdClear_Click
End Select
End Sub

我将源程序和生成的文件发给你，要采纳哦