Rubrik: Variablen/Strings · Algorithmen/Mathematik | VB-Versionen: VB4, VB5, VB6 | 26.12.02 |
Fakultät einer natürlichen Zahl Berechnet die Fakultät einer natürlichen Zahl | ||
Autor: Ulf Kanther | Bewertung: | Views: 16.286 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Nachfolgende Funktion berechnet die Fakultät einer natürlichen Zahl.
' -------------------------------------------------------- ' Name : Fakultaet ' Aufgabe: Berechnen der Fakultaet einer natürlichen Zahl ' Eingabe: Startwert ' Ausgabe: 1*2*3*4*5 = 120 ' -------------------------------------------------------- Function Fakultaet(dblEingabe As Double) As Variant Dim varErgebnis As Variant Dim i As Variant On Error GoTo Errorhandler varErgebnis = 1 For i = 1 To dblEingabe - 1 varErgebnis = varErgebnis * (i + 1) Next i ' Funktionsrückgabe Fakultaet = varErgebnis Exit Function Errorhandler: MsgBox "Es ist ein interner Fehler aufgetreten! " & _ Err.Description & " Fehlernummer: " & Err.Number, _ vbCritical, "Ups, my bad :-)" End Function