用vb编写一个简单的计算器,有0-9数字,加减乘除,等于15个按钮,只有一个文本框,要求先输入一个数字,
按加减乘除按钮,在输入一个数字,按等于显示结果。代码怎么写,知道的朋友帮帮忙,我数字定义都可以,就按等于时显示不出结果,等号应该怎样写代码?...
按加减乘除按钮,在输入一个数字,按等于显示结果。代码怎么写,知道的朋友帮帮忙,我数字定义都可以,就按等于时显示不出结果,等号应该怎样写代码?
展开
展开全部
下面是我练手时编的计算器的等号按钮事件,看能不能看清楚。
Private Sub Command14_Click()
d = ""
If Text1.Text = "+" Or Text1.Text = "-" Or Text1.Text = "*" Or Text1.Text = "/" Then Exit Sub
'c = Text1.Text
If b = "" Then Exit Sub
If e = "+" Then
d = f + b
Else
If e = "-" Then
d = f - b
Else
If e = "*" Then
d = f * b
Else
If e = "/" Then
If b = 0 Then
MsgBox "被除数不能为零!"
Exit Sub
End If
d = f / b
Else
MsgBox "错误操作!"
End If
End If
End If
End If
Text1.Text = d
b = ""
c = ""
e = ""
End Sub
Private Sub Command14_Click()
d = ""
If Text1.Text = "+" Or Text1.Text = "-" Or Text1.Text = "*" Or Text1.Text = "/" Then Exit Sub
'c = Text1.Text
If b = "" Then Exit Sub
If e = "+" Then
d = f + b
Else
If e = "-" Then
d = f - b
Else
If e = "*" Then
d = f * b
Else
If e = "/" Then
If b = 0 Then
MsgBox "被除数不能为零!"
Exit Sub
End If
d = f / b
Else
MsgBox "错误操作!"
End If
End If
End If
End If
Text1.Text = d
b = ""
c = ""
e = ""
End Sub
更多追问追答
追问
请问你的这个b,c,e,d,f是什么意思啊,我代进去不行啊
追答
d是上次运算结果,e是运算符,f、b是运算因子,c是暂存变量
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询