VB6与VBScript运算符优先级不一致问题求助

问题背景 #

我在Win7 32位系统上以解释模式运行一款老旧VB6程序，程序通过MSScriptControl.ScriptControl调用VBScript执行数值表达式计算，核心代码如下。测试时发现，当表达式包含-a^b形式时，VBScript的计算结果与VB6预期不符：按VB6运算符优先级，-a^b等价于-(a^b)，但VBScript常返回+(a^b)（表达式内空格不影响结果）。

核心代码 #

Public Function calc(ipEqtn$)
    Set objScript = CreateObject("MSScriptControl.ScriptControl")
    objScript.Language = "VBScript"
    calc = objScript.eval(ipEqtn$)
End Function '... calc

Public Function tc(n)

Select Case (n)
    Case (1):  eqtn$ = "-(5 ^ 2)         ": VB6 = -(5 ^ 2)              ' --> -25,-25 ok
    Case (2):  eqtn$ = "(- 5 ^ 2)        ": VB6 = (-5 ^ 2)              ' -->  25,-25 ?
    Case (3):  eqtn$ = "(-5^2)           ": VB6 = (-5 ^ 2)              ' -->  25,-25 ?
    Case (4):  eqtn$ = "- 5 ^ 2          ": VB6 = -5 ^ 2                ' -->  25,-25 ?
    
    Case (5):  eqtn$ = "( 5^2 -5^2 )     ": VB6 = (5 ^ 2 - 5 ^ 2)       ' -->  0,0 ok
    Case (6):  eqtn$ = "( -5^2 + 5^2 )   ": VB6 = (-5 ^ 2 + 5 ^ 2)      ' --> 50,0 ?
    Case (7):  eqtn$ = "  5^2 -5^2       ": VB6 = 5 ^ 2 - 5 ^ 2         ' -->  0,0 ok
    Case (8):  eqtn$ = " -5^2 + 5^2      ": VB6 = -5 ^ 2 + 5 ^ 2        ' --> 50,0 ?
    
    Case (9):  eqtn$ = " + 5^2  -5^2     ": VB6 = 5 ^ 2 - 5 ^ 2         ' --> 0,0
    Case (10): eqtn$ = " + 5^2 + -5^2    ": VB6 = 5 ^ 2 + -5 ^ 2        ' -->50,0
    Case (11): eqtn$ = " + 5^2 + -1*5^2  ": VB6 = 5 ^ 2 + -1 * 5 ^ 2    ' --> 0,0
    
End Select
vbs = calc(eqtn$)
Debug.Print vbs, VB6
    
End Function '... tc()

测试用例结果差异 #

• 一致结果标记为ok，不一致标记为?
  • Case1: -(5 ^ 2) → VB6和VBScript均返回-25（ok）
  • Case2: (- 5 ^ 2) → VBScript返回25，VB6返回-25（?）
  • Case3: (-5^2) → VBScript返回25，VB6返回-25（?）
  • Case4: - 5 ^ 2 → VBScript返回25，VB6返回-25（?）
  • Case5: ( 5^2 -5^2 ) → 均返回0（ok）
  • Case6: ( -5^2 + 5^2 ) → VBScript返回50，VB6返回0（?）
  • Case7: 5^2 -5^2 → 均返回0（ok）
  • Case8: -5^2 + 5^2 → VBScript返回50，VB6返回0（?）
  • Case9: + 5^2 -5^2 → 均返回0（ok）
  • Case10: + 5^2 + -5^2 → VBScript返回50，VB6返回0（?）
  • Case11: + 5^2 + -1*5^2 → 均返回0（ok）

问题疑问 #

目前可以通过给所有a^b添加括号解决，但复杂长公式中这样做既繁琐又影响可读性。请问该问题是否为已知问题？是否存在后台修复方案（如补丁或版本升级）？

解答 #

这是VBScript与VB6运算符优先级的已知差异，核心原因是两者对一元负号和幂运算的优先级定义不同：

• VB6中，幂运算（^）优先级高于一元负号，因此-a^b会先计算a^b再取负，即-(a^b)。
• VBScript中，一元负号的优先级高于幂运算，因此-a^b会先计算-a再做幂运算，即(-a)^b，当b为偶数时结果为正，和VB6的预期完全相反。

后台修复方案说明 #

不存在官方补丁或版本升级可以修改VBScript的运算符优先级规则，因为这是VBScript语言本身的设计特性，且微软早已停止对VBScript和VB6的主流支持，不会再推出这类修改语言核心逻辑的更新。

替代解决方案 #

• 表达式预处理：在传递给VBScript的Eval前，通过正则表达式自动替换-x^y形式的片段为-(x^y)，无需手动修改公式。
• 替换脚本引擎：改用支持VB6运算符优先级的第三方表达式解析组件，或者直接在VB6中实现表达式解析逻辑，彻底避免依赖VBScript的Eval。

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