Write a VB program to find factorial of any input number.
Answers
Answered by
0
Answer:
Explanation:
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
Similar questions