Visual Basic 2005/Näited/Faktoriaali arvutamine

Allikas: Vikiõpikud
Jump to navigation Jump to search

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