<< Click to Display Table of Contents >> Sqr (function)

Sqr(Num)

Returns the square root of a number.

Num may not be smaller than 0.

Sub Root

 Dim Title, Msg, Number

 Title = "Calculation of the square root"

 Prompt = "Enter a positive number:"

 Number = InputBox(Prompt, Title)

 If Number < 0 Then

         Msg = "The root of negative numbers is not defined."

 Else

         Msg = "The root of " & Number & " is "

         Msg = Msg & Sqr(Number) & "."

 End If

 MsgBox Msg

End Sub