Pages

Wednesday, March 21, 2012

Sub Routine

Sub CubeRoot()

    Num = InputBox("Enter a Positive number")

    MsgBox Num ^ (1 / 3) & " is the cube root."

End Sub

No comments:

Post a Comment