[VB2008] Calcolo fattoriali

[broc]

Ciao. Non credo esista una funzione che permetta di calcolare i fattoriali, come posso fare quindi?

Devo fare calcoli combinatori, quindi con formule tipo N!/K!*(N-K)! Dove ! indica il fattoriale.
Chi mi dà una mano? =)

[tas]

Non ho trovato la funzione per il calcolo del fattoriale in System.Math, ma è facile scriverla, usando a scelta uno dei due approcci: ricorsiva o mediante un ciclo. Ecco un esempio, buttato giù al volo:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer

        Console.WriteLine(Fact1(0))
        Console.WriteLine(Fact2(0))
    End Sub

    'funzione ricorsiva
    Private Function Fact1(ByVal n As Integer) As Long
        If n <= 1 Then
            Return 1
        Else
            Return n * Fact1(n - 1)
        End If
    End Function

    'funzione non ricorsiva
    Private Function Fact2(ByVal n As Integer) As Long
        Dim i As Integer
        Dim p As Long = 1

        For i = 2 To n
            p *= i
        Next

        Return p
    End Function