Ö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
fak = 1
sayi = InputBox("Faktöriyeli bulunacak sayıyı girin")
For i = 1 To sayi
fak = fak * i
Next i
MsgBox(sayi & " sayısının faktöriyeli = " & fak)
End Sub
End Class


0'DAN VİSUAL BASİC.NET PROGRAMLAMA DİLİNİ ÖĞRENMEK İSTEYEN ARKADAŞLARI http://murataktas.org/category/vb-net-dersler-ve-ornekler/ BLOGUMDAKİ VB.NET DERSLERİ VE ÖRNEKLERİ KATEGORİSİNE BEKLİYORUM