Private Sub cmdexit_Click()
End
End Sub
Private Sub cmdfact_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
Output:
About the Author
Unknown
Author & Editor
Has laoreet percipitur ad. Vide interesset in mei, no his legimus verterem. Et nostrum imperdiet appellantur usu, mnesarchum referrentur id vim.
Post a Comment