help me to make a factorial function.
any help will appreciated much...
try this :
Public Function Factorial(ByVal Number As Integer) As String Try If Number = 0 Then Return 1 Else Return Number * Factorial(Number - 1) End If Catch ex As Exception Return ex.Message End Try End Function
I called this function in button click event:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim num As Integer num = Val(InputBox("Enter the Factorial Number")) MsgBox(Factorial(num)) End Sub
thank you very much.
it was solved my problem ;)
you're welcome :)