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](/uploads/image/z/10450478-38-8.jpg?t=vb%E8%AE%A1%E7%AE%97%E5%99%A8%E5%8A%A0%E6%B3%95%E5%92%8C%E5%87%8F%E6%B3%95%E5%A6%82%E6%9E%9C%E8%A6%81%E6%89%A7%E8%A1%8C%E8%BF%9E%E7%BB%AD%E5%8A%A0%E6%B3%95%E5%92%8C%E5%87%8F%E6%B3%95%E8%A6%81%E6%80%8E%E4%B9%88%E5%86%99%3F%E5%83%8F%EF%BC%9A3%2B5%2B9-1-4.%E6%88%91%E5%8E%9F%E6%9C%89%E7%9A%84%E5%8F%AA%E6%98%AF%E5%8F%AF%E4%BB%A5%E5%81%9A%E4%B8%A4%E4%B8%AA.Private+Sub+equal_Click%28ByVal+sender+As+System.Object%2CByVal+e+As+System.EventArgs%29+Handles+equal.Clickvar2+%3D+CType%28result.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 然后 = 之后即可得到结果.