VB 8:Faktoriaali arvutamine

Allikas: Wikibooks

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
Välja otsitud andmebaasist "http://et.wikibooks.org/wiki/VB_8:Faktoriaali_arvutamine"