0

電卓を作成していて、テキスト ボックスに値 (実行時に最初の変数に割り当てられた値) と演算子 [+,-,*,/] を上の行に表示したいと考えています。

次に、2 行目に入力された値が 2 番目の変数に割り当てられます。

次に、equal(=) ボタンを押すと、必要な操作が実行されます。つまり、最初の変数と 2 番目の変数が追加されます。

私は少しやったが、例えば正しい答えを提供していない:

  • 3 を入力して Add(+) ボタンをクリックすると、カーソルが下の行に移動します
  • 5 を入力して等号ボタンを押すと、テキスト ボックスの結果に 8 ではなく 6 が表示される

等々。

ここにコードがあります

Private Sub ButtonAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonAdd.Click
    Operand1 = Val(TextBox1.Text)
    TextBox1.Text = Operand1 & "+" & Environment.NewLine & Operand2
        TextBox1.Focus()
        [Operator] = "+"
End Sub

Private Sub ButtonEqual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonEqual.Click
    Dim Result As Double

    Operand2 = Val(TextBox1.Text)
    Select Case [Operator]
        Case "+"
            Result = Operand1 + Operand2
            TextBox1.Text = Result

        Case "-"
            Result = Operand1 - Operand2
            TextBox1.Text = Result
        Case "*"
            Result = Operand1 * Operand2
            TextBox1.Text = Result
        Case "/"
            Result = Operand1 / Operand2
            TextBox1.Text = Result
    End Select
    TextBox1.Text = Result
End Sub
4

2 に答える 2

0
[code]

Operand2 = val(textbox1.text)[/code]は[code]である必要がありますOperand2= val(textbox1.lines(1))[/ code]

于 2012-11-19T19:54:46.373 に答える
0

間違ったテキスト ボックスを使用していると思います。

Operand2 = Val(TextBox1.Text)

する必要があります

Operand2 = Val(TextBox2.Text)
于 2012-11-17T17:41:01.200 に答える