Fakultät einer natürlichen Zahl Berechnet die Fakultät einer natürlichen Zahl
Autor:   Ulf Kanther	Bewertung:     [ Jetzt bewerten ]	Views:  6.130
ohne Homepage	System:  Win9x, WinNT, Win2000, WinXP, Vista	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 33 Bewertung insgesamt: mittelmäßig Durchschnittliche Bewertung: 2.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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