Imports System
Public Class Program
Public Shared Function factorial(ByVal n As Integer) As Integer
Return If((n = 1 OrElse n = 0), 1, n * factorial(n - 1))
End Function
Public Shared Sub Main()
Dim n As Integer = 7, r As Integer = 3
Dim ncr As Integer = factorial(n) / (factorial(r) * factorial(n - r))
Console.Write(ncr)
End Sub
End Class
' run:
'
' 35
'