vba - 检查数字是否具有整数三次根

Question

我试图在 VBA 中检查给定的数字是否是立方根。
以下代码仅适用于 2 和 3 作为答案，此后不起作用。
我试图找出代码中有什么问题。

Sub cuberoot()
    Dim n As Long, p As Long, x As Long, y As Long

    x = InputBox("x= ")
    If Iscube(x) Then
        MsgBox ("Is cube")
    Else
        MsgBox ("No cube")
    End If
End Sub

Private Function Iscube(a As Long) As Boolean
    b = a ^ (1 / 3)
    If b = Int(b) Then
        Iscube = True
    Else
        Iscube = False
    End If
End Function

Answer 1

由于您正在传递 Long我假设你的数字不会大于大约 2*10^9，所以这应该总是有效的。这是一个细微的变化，您截断 double 数，然后与两个最接近的整数进行比较，以确保捕获任何舍入错误。

编辑:在 VBA 中，截断总是四舍五入，所以只需要检查第三个根值:

Public Function Iscube(a As Long) As Boolean

Dim b As Integer
b = CInt(a ^ (1# / 3#))

If (b ^ 3 = a) Then
    Iscube = True
Else
    Iscube = False
End If

End Function

如果您需要一个大于 Long 的数字您需要更改输入类型，并且您可能需要考虑使用迭代方法，例如二分搜索或 Newton-Raphson 求解器。