Bu vermiş oldupum kodlarla Visual Basic ile girilen herhangi bir sayının faktöriyelini alabilirsiniz. Burada yaptığımız tek işlem döngü kurmak. İsterseniz bu sayı girişini Inputbox'larla da yapabilirsiniz.
Private Sub Command1_Click()
sayi = Text1.Text
sonuc = 1
For i = sayi To 1 Step -1
sonuc = sonuc * i
Next
Text2.Text = sonuc
End Sub
Private Sub Command1_Click()
sayi = Text1.Text
sonuc = 1
For i = sayi To 1 Step -1
sonuc = sonuc * i
Next
Text2.Text = sonuc
End Sub