如何用VBA编写该数学公式？现有代码公式报错求排查

原代码存在的核心错误 #

• 括号不匹配：Sqr函数仅开启左括号但未闭合，导致编译报错
• 运算优先级错误：^1/3会先执行^1再做除法，不符合三次方根的计算逻辑，需将指数1/3用括号包裹成^(1/3)

修正后的完整代码 #

Private Sub CommandButton6_Click()
    Dim Z As String
    Dim X As Double, Y As Double
    Z = InputBox("输入数字X!", "输入X的值"): X = Val(Z)
    ' 修正括号匹配与运算优先级，简化(8-X)-1为7-X
    Y = Sqr(2 * ((X - 2) ^ 2) * ((7 - X) ^ (1 / 3)))
    MsgBox ("Y =" + Str(Y))
End Sub

额外优化建议 #

1. 处理负数三次方根：若7-X为负数，VBA原生^运算会返回复数，如需实数结果可改用Application.Power(7-X, 1/3)
2. 添加输入验证：防止用户输入非数字内容，示例代码如下：

If Not IsNumeric(Z) Then
    MsgBox "请输入有效的数字！"
    Exit Sub
End If

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