想做个计算器

来源：百度知道 编辑：UC知道 时间：2024/05/30 10:40:00
问下我想用VB编写一个计算器
问下在不编数字的情况下
去编加\减\乘\除
是什么代码~~高手帮下

Private Sub cmdDivide_Click()
If ClearDisplay = False And Operator <> "Num" Then
Select Case Operator
Case "+"
txtMessage.Text = Operand1 + Val(txtMessage.Text)
Case "-"
txtMessage.Text = Operand1 - Val(txtMessage.Text)
Case "*"
txtMessage.Text = Operand1 * Val(txtMessage.Text)
Case "/"
If txtMessage.Text <> "0" Then
txtMessage.Text = Operand1 / Val(txtMessage.Text)
Else
txtMessage.Text = "分母不能为零!"
CleartxtMessage.Text = True
Operand1 = 0
End If
End Select
End If
Operand1 = Val(txtMessage.Text)
Operator = "/"
ClearDisplay = True
End Sub