VB.NET简易计算器连续按等号功能异常问题求助

你遇到的核心问题是连续按等号时，程序仍使用最初的num1（5）参与计算，而非用上一次的结果（6）作为新的第一个操作数。要解决这个问题，只需用布尔值标记计算状态，同时保存上一次的操作数，让连续按等号时重复执行“结果+上一次操作数”的逻辑。

具体修改步骤 #

1. 添加状态变量
   在类的顶部（原变量声明处）新增两个变量，用于标记计算状态和保存上一次的操作数：

Dim [operator] As String
Dim num1, num2 As Double
Dim isCalculated As Boolean = False ' 标记是否已完成一次计算
Dim lastOperand As Double ' 存储上一次的操作数（比如第一次输入的1）

2. 修改加号按钮的点击事件
   点击加号时，重置计算状态为“未完成”，确保新的运算从初始状态开始：

Private Sub btnPlus_Click(sender As Object, e As EventArgs) Handles btnPlus.Click
    [operator] = "+"
    num1 = CDbl(tbDisplay.Text) ' 明确转换为Double，避免隐式转换问题
    tbDisplay2.Text = CStr(num1) + " " + [operator]
    tbDisplay.Text = ""
    isCalculated = False ' 重置计算状态
End Sub

3. 重构等号按钮的点击事件
   根据isCalculated的状态，分两种情况处理：

• 第一次按等号：正常计算，并保存结果和操作数
• 连续按等号：用上一次结果加保存的操作数，实现重复运算

修改后的代码：

Private Sub btn_Result_Click(sender As Object, e As EventArgs) Handles btn_Result.Click
    Dim Result As Double ' 声明Result变量（原代码未显式声明）
    
    If Not isCalculated Then
        ' 第一次计算：获取当前输入的num2
        num2 = CDbl(tbDisplay.Text)
        lastOperand = num2 ' 保存本次操作数，用于连续按等号
        ' 执行加法运算
        Result = num1 + num2
        ' 更新历史和显示
        tbDisplay2.Text = CStr(num1) + " " + [operator] + " " + CStr(num2) + " = " + CStr(Result)
        ' 将结果设为新的num1，为连续运算做准备
        num1 = Result
        ' 标记为已完成计算
        isCalculated = True
    Else
        ' 连续按等号：用上一次结果加保存的操作数
        Result = num1 + lastOperand
        ' 更新历史和显示
        tbDisplay2.Text = CStr(num1) + " " + [operator] + " " + CStr(lastOperand) + " = " + CStr(Result)
        ' 更新num1为新结果
        num1 = Result
    End If
    
    tbDisplay.Text = CStr(Result)
End Sub

额外提示（可选） #

• 建议用Double.TryParse代替直接转换，避免输入非数字时崩溃，示例：

  If Not Double.TryParse(tbDisplay.Text, num1) Then
      tbDisplay.Text = "无效输入"
      Return
  End If
  

• 其他运算符（减、乘、除）可沿用同样逻辑扩展，只需在对应按钮事件中设置[operator]并重置isCalculated即可。

内容的提问来源于stack exchange，提问作者Gabrielle Escamis