faktöriyelini verir

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