Girilen sayının Faktöriyelini Verir

[Genc_Beyin]

Girilen sayının Faktöriyelini Verir

Private Function fakt(a As Byte) As Variant
f = 1
For i = 1 To a
f = f * i
Next
fakt = f
End Function

Private Sub Command1_Click()
Label1.Caption = fakt(Text1.Text)
End Sub