Örneğimizde klavyeden girilen bir sayının faktöriyelini bulacağız. Mesela 4 sayısının faktöriyeli matematikte şu şekilde bulunur:

4*3*2*1=24

4 sayısının faktöriyeli 24'tür. Buna göre programımızda 1 den klavyeden girilen sayıya kadar bir döngü oluşturacağız. Ve döngü değeri ile çarpım değerini her defasında yeniden çarpacağız. Kodumuz şu şekilde olacak:

Public Class Form1

Private Sub cmdsayigir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsayigir.Click

Dim i, sayi, fak As Integer

sayi = InputBox("Faktöriyeli bulunacak sayıyı girin")

For i = 1 To sayi

Next i

MsgBox(sayi & " sayısının faktöriyeli = " & fak)

End Sub

End Class

Son olarak proje dosyasını vereyim:

http://www.volkanaktas.com/PrgDosya/faktoriyel.rar