n po k / dwumian newtona

Function npok(n As Integer, k As Integer) As Double
    Dim res As Double, m As Double, i As Integer
    If k > n - k Then
        m = k + 1
    Else
        m = n - k + 1
    End If
    res = 1
    i = 1
    Do
        res = res * m
        res = res / i
        m = m + 1
        i = i + 1
    Loop While m <= n
    npok = res
End Function