Question

当我添加多个数字时，计算器可以工作，但是当我减去，乘以或除多个数字时它不起作用。我不确定我应该为这些操作做什么编码。即使我从按钮程序中更改了这行代码(total1=total1 + Val(txtAnswer.Text)) to (total1=total1 - Val(txtAnswer.Text))，它仍然无法正常工作

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click              'Add Button
    Operation = "+"
    txtDisplay.Text = txtDisplay.Text & btnAdd.Text
    txtAnswer.Text = txtAnswer.Text & btnAdd.Text
    total1 = total1 + Val(txtAnswer.Text)
    txtAnswer.Clear()
End Sub

Private Sub btnMinus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMinus.Click    'Minus Button
    Operation = "-"
    txtDisplay.Text = txtDisplay.Text & btnMinus.Text
    txtAnswer.Text = txtAnswer.Text & btnMinus.Text
    total1 = total1 + Val(txtAnswer.Text)
    txtAnswer.Clear()
End Sub

Private Sub btnMulti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMulti.Click   'Multiply Button
    Operation = "x"
    txtDisplay.Text = txtDisplay.Text & btnMulti.Text
    txtAnswer.Text = txtAnswer.Text & btnMulti.Text
    total1 = total1 + Val(txtAnswer.Text)
    txtAnswer.Clear()
End Sub

Private Sub btnDiv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDiv.Click   'Divide Button
    Operation = "/"
    txtDisplay.Text = txtDisplay.Text & btnDiv.Text
    txtAnswer.Text = txtAnswer.Text & btnDiv.Text
    total1 = total1 + Val(txtAnswer.Text)
    txtAnswer.Clear()
End Sub

Private Sub btnEqu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEqu.Click
    Select Case Operation
        Case "+"
            total2 = total1 + Val(txtAnswer.Text)
            txtAnswer.Text = total2
            total1 = 0
        Case "-"
            total2 = total1 - Val(txtAnswer.Text)
            txtAnswer.Text = total2
            total1 = 0
        Case "x"
            total2 = total1 * Val(txtAnswer.Text)
            txtAnswer.Text = total2
            total1 = 0
        Case "/"
            total2 = total1 / Val(txtAnswer.Text)
            txtAnswer.Text = total2
            total1 = 0
    End Select
End Sub

Answer 1

尝试更改VAL for CDbl（）以将值转换为double（浮点）数字。利用VARIABLES来接收值，然后才将它们放入文本框中。

类似的东西：

Dim x as double = 0
Dim y as double = 0
Dim z as double = 0

'  Convert string to Double number
Z = cdbl(total1)/cdbl(txtanswer.txt)
Y = z *2
x = (y/z)

TxtAnswer.text = X.tostring
TxtAnswer.text = Z.tostring

见下文：

Dim Total1 as double = 0


    Select Case Operation
        Case "+"
        total2 = total1 + cdbl(txtAnswer.Text)
        txtAnswer.Text = total2.Tostring
        total1 = 0
        Case "-"
        total2 = total1 - cdbl(txtAnswer.Text)
        txtAnswer.Text = total2.Tostring
        total1 = 0
        Case "x"
        total2 = total1 * cdbl(txtAnswer.Text)
        txtAnswer.Text = total2.Tostring
        total1 = 0
        Case "/"
        total2 = total1 / cdbl(txtAnswer.Text)
        txtAnswer.Text = total2.Tostring
        total1 = 0
   End Select

使用VB.Net 2010减去，乘以，除以计算器上的多个数字

1 个答案: