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

Sqr(Num)

Berechnet die Quadratwurzel einer Zahl.

Num darf nicht kleiner als 0 sein.

Sub Wurzel

 Dim Titel, Msg, Zahl

 Titel = "Berechnung der Quadratwurzel"

 Prompt = "Geben Sie eine positive Zahl ein:"

 Zahl = InputBox(Prompt, Titel)

 If Zahl < 0 Then

         Msg = "Die Wurzel von negativen Zahlen ist nicht definiert."

 Else

         Msg = "Die Wurzel von " & Zahl & " beträgt "

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

 End If

 MsgBox Msg

End Sub