A program in visual basic to find factorial of a number using function.

Private Sub Command1_Click() Dim j, i as Integer i = CInt(Text1.Text) Label2.Caption = facts(i) End Sub Private Function facts(i) F = 1 For j = 1 To i F = F * j facts = F Next j End Function