Private Sub Form_Load()
MsgBox Cubic(125)
End Sub
Public Function Cubic(Cval&) As Long
'开4次方 1/4 ,开5次方 1/5 ....类推
Cubic = Cval ^ (1 / 3)
End Function
Private Sub Form_Load()
MsgBox Cubic(125)
End Sub
Public Function Cubic(Cval&) As Long
'开4次方 1/4 ,开5次方 1/5 ....类推
Cubic = Cval ^ (1 / 3)
End Function