计算器不会执行基本的算术计算

Question

我对VBA比较陌生，一直在努力学习它。我首先尝试编写计算器并对其进行编程以执行基本计算，例如加、除、减和乘。但是，当我尝试使用下面看到的代码执行这些函数时，计算器不会编译和执行上述计算。

Private Sub cmdBtnEql_Click()
On Error GoTo ErrOcccered

If txtDisplay = "Cannot divide by Zero" Then txtDisplay = Empty


If txtRes <> "" And calVal Then
FNum = Val(txtDisplay): SNum = Val(txtRes)
Select Case calVal
Case "Add"
txtRes = FNum + SNum
Case "Minus"
txtRes = FNum - SNum
Case "Multiplication"
txtRes = FNum * SNum
Case "Divide"
If SNum = 0 Then
txtRes = "Cannot divide by zero"
Else
txtRes = FNum / SNum
End If
Case Else
End Select
End If
ErrOcccered:
End Sub

但是，此过程实际上并不执行上述计算。我能够单击按钮，相应的数字确实显示在用户表单的文本框中，无需进行任何计算。这段代码不是我个人的，我正在使用我在网上找到的另一段代码，并试图了解 VBA 中的所有语法和语义是如何工作的。感谢您的帮助！谢谢

Answer 1

在代码的这一行上放置一个断点。If txtRes <> "" And calVal Then使用 F8 逐步完成代码，并了解其确切作用。

你会发现它永远不会超过这条线，因为有一个测试calVal的值是否不是零。当然，calVal应该包含一个单词，例如"Add"，因此永远不能有零以外的数值。

将此测试更改为

If txtRes <> "" And len(calVal) > 0 Then

但仍使用 F8 的方法检查代码。

顺便说一句，txtRes = FNum + SNum技术上是正确的，但实际上令人困惑。上面的一位评论员误认为 txtRes 是一个变量。更好的语法是在代码中包含默认属性。

txtRes.Value = FNum + SNum