Fakultät einer natürlichen Zahl größer als 20 Fakultät mit dem Datentyp BigInteger berechnen (ab VB2010, FW 4)
Autor:   Manfred Bohn	Bewertung:     [ Jetzt bewerten ]	Views:  10.452
ohne Homepage	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Ab VB2010 FW 4.0 steht im Namespace "System.Numerics" der Datentyp "BigInteger" zur Verfügung, durch den beliebig große Ganzzahlen darstellbar sind. Er eignet sich zur exakten Berechnung der Fakultät von Zahlen > 20.

''' <summary>
''' Berechnet die Fakultät einer natürlichen Zahl auch größer als 20.
''' </summary>
Public Function Fakultät(ByVal number As Short) As System.Numerics.BigInteger
  If number < 0S Then
    Throw New ArgumentException("Fakultät: Argument kleiner 0")
  ElseIf number = 0S Then
    Return System.Numerics.BigInteger.One
  Else
    Dim vl As New System.Numerics.BigInteger(1L)
    For i As System.Numerics.BigInteger = System.Numerics.BigInteger.One To number
      vl *= i
    Next i
    Return vl
  End If
End Function

Hinweis:
Sollte beim Zugriff auf System.Numerics.BigInteger ein Fehler auftreten, müssen Sie Ihrem Projekt noch zusätzlich den Verweis System.Numerics hinzufügen.