在计算器的文本框中，如何将上行的值分配给第一个变量，将下行的值分配给第二个变量？

Question

我正在制作一个计算器，希望我的文本框在上面一行显示值(在运行时分配给第一个变量)以及运算符[+，-，*，/]。

然后，第二行中输入的值应分配给第二个变量。

然后，当我按下相等(=)按钮时，应执行所需的操作，即添加第一个变量和第二个变量。

我做了一点，但它没有提供正确的答案，例如：

• 当我输入3并单击Add(+)按钮时，光标会向下移动
• 当我输入5并按下相等按钮时，文本框在结果中显示6而不是8

等等。

这是代码

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

Answer 1

我认为您使用了错误的文本框：

Operand2 = Val(TextBox1.Text)

应该是

Operand2 = Val(TextBox2.Text)

Answer 2

[code]

操作数2=val(文本框1.text)[/code]应该是[代码]操作数2=val(文本框1.lines(1))[/code]