小编hey*_*ack的帖子

我正在尝试在VBA中编写一个简单的函数来测试实际值并输出字符串结果,如果它是一个完美的立方体.这是我的代码:

Function PerfectCubeTest(x as Double)

    If (x) ^ (1 / 3) = Int(x) Then
        PerfectCubeTest = "Perfect"
    Else
        PerfectCubeTest = "Flawed"
    End If

End Function

如您所见,我使用简单的if语句来测试值的立方根是否等于其整数部分(即没有余数).我尝试使用一些完美的立方体(1,8,27,64,125)测试该功能,但它仅适用于数字1.任何其他值都会吐出"有缺陷"的情况.知道这里有什么问题吗？