Visual Basic 2005/Näited/Faktoriaali arvutamine
Module Module1 Dim väärtus As Double = 1 Sub Main() MsgBox("Selle arvu faktoriaal on " & faktoriaal(InputBox("Sisesta faktoriaali alus.")) & ".") End Sub Function faktoriaal(ByVal a) As Double If a > 1 Then faktoriaal(a – 1) : väärtus *= a : faktoriaal = väärtus End Function End Module