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