vb计算器加法和减法如果要执行连续加法和减法要怎么写?像:3+5+9-1-4.我原有的只是可以做两个.Private Sub equal_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles equal.Clickvar2 = CType(result.Tex

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/09 06:18:56
vb计算器加法和减法如果要执行连续加法和减法要怎么写?像:3+5+9-1-4.我原有的只是可以做两个.Private Sub equal_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles equal.Clickvar2 = CType(result.Tex

vb计算器加法和减法如果要执行连续加法和减法要怎么写?像:3+5+9-1-4.我原有的只是可以做两个.Private Sub equal_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles equal.Clickvar2 = CType(result.Tex
vb计算器加法和减法
如果要执行连续加法和减法要怎么写?
像:3+5+9-1-4.
我原有的只是可以做两个.
Private Sub equal_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles equal.Click
var2 = CType(result.Text,Double)
If calFunction = "Add" Then
result.Text = var1 + var2
ElseIf calFunction = "Minus" Then
result.Text = var1 - var2
End If
End Sub

vb计算器加法和减法如果要执行连续加法和减法要怎么写?像:3+5+9-1-4.我原有的只是可以做两个.Private Sub equal_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles equal.Clickvar2 = CType(result.Tex
思路:
把输入操作符之前的数永远当成第一个数 也就是var1
输入操作符后的数,也就是在=之前记录的数 当成第二个数 也就是var2
操作符的问题可以用一个switch 然后 = 之后即可得到结果.