"Visual Basic" Programlama dilinde "Bir Sayının Faktöriyelini Bulma Örneği" ile ilgili örnek kod aşağıda gösterilmiştir.

Imports System

Module MainModule

  Sub Main(args As String())

    Console.WriteLine("Bir tamsayı giriniz:  ")
    Dim a As Integer = Integer.Parse(Console.ReadLine())
    Dim sonuc As Integer = Faktoriyel(a)
    Console.WriteLine(a & " sayısının faktöriyeli: " & sonuc)
    
  End Sub

  Function Faktoriyel(n As Integer) As Integer
    Dim f As Integer
    If n = 1 Then
      f = 1
    Else
      f = n * Faktoriyel(n-1)
    End If
    Return f
  End Function

End Module