Visual Basic Forum

sollniss · Überflieger Anmeldedatum: 01.05.2008 Beiträge: 699

Da es keine .NET interne Funktion dafür gibt, hab ich selber eine geschrieben:
Visual Basic: [code] Private Function Fak(ByVal Number As Byte) As Double

If Number = 0 Then
Return 1
ElseIf Number > 170 Then
Return -1
End If

Dim j As Double = 1
For i As Byte = 1 To Number
j = j * i
Next

Return j
End Function[/code]

Aufruf:
Visual Basic: [code]dim i as double = fak(99)[/code]
_________________

Marduk · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 374

Und das ganze jetzt noch mal Rekursiv

Visual Basic: [code]Function fak(ByVal n As Integer) As Long
If n = 1 Or n = 0 Then
fak = 1
Else
fak = n * fak(n - 1)
End If
Return fak
End Function[/code]