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/07/14 03:03:29
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
xOo0ſӦ61UX d%N u0-V!VAt2 8Ue 8~?=ORs;u䰆?h>#; ^;q_&<)9,~} ?/ٸ\H .+66qluq F}rz]]I ˦cSP-pzzEP uG`9 #>f*SP3}4n Bp\K  tN%S^ԣ("{b*aX7EU MS e],O}l)r\.Ih&:ch2XZ i1|4K2]zl{GUbTrM4yVIN/C3yw[@\)1DxdVk5Stv#.]tR|bźZPbHkFw*%\<>|TYTr|%-濅oe

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 然后 = 之后即可得到结果.