Question

Write a program using Visual Basic to find out the factorial of given integerif the integeris N then factorial of N stands for 1×2×3×...×N.if the value of N...

Answer 1

Private Sub Command1_Click()

Dim n As Integer
Dim fact As Integer
fact = 1
n = Val(Text1.Text)
For i = 1 To n
fact = fact * i
Next
MsgBox "factorial of " & n & " is = " & fact

End Sub

Answer 2

Private Sub Command1_Click()

Dim n As Integer
Dim fact As Integer
fact = 1
n = Val(Text1.Text)
For i = 1 To n
fact = fact * i
Next
MsgBox "factorial of " & n & " is = " & fact

End Sub