Bu örneğimizde Visual Basic Console ortamında klavyeden girilen bir sayının faktöriyelini hesaplayan programı yapacağız. Sayının faktöriyelini hesaplamak için bir döngü yardımı ile 1’den girilen sayıya kadar olan sayıların çarpımını hesaplatarak sonucu bulmuş olacağız.
Programın Visual Basic Console Kodları:



Programın Visual Basic Console Kodları:
Code:
Module Module1
Private Function Faktoriyel(ByRef sayi As Integer) As Integer
Dim sonuc = 1, i As Integer
For i = 1 To sayi
sonuc = sonuc * i
Next
Return sonuc
End Function
Sub Main()
Dim a, git As New Integer
Console.Write("Faktöriyelini hesaplatmak istediğiniz sayıyı giriniz:")
a = Convert.ToInt32(Console.ReadLine())
git = Faktoriyel(a)
Console.WriteLine("{0} sayısının faktöriyeli {1}'dir", a, git)
Console.ReadKey()
End Sub
End Module


