Question

Write a VB program to find factorial of any input number.
​

Answer 1

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