Factorial Solver in Visual Basic .NET

A factorial program that I wrote using Microsoft Visual Basic .NET to solve for the factorial of the number. The code is very easy to understand I create a function called factorial which uses recursion algorithm to solve the factorial of the given number by our user.

 Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Label2.Visible = False

    End Sub

    Private Function Factorial(ByVal inputval As Integer) As Integer

        Dim f As Integer

        Factorial = 1

        For f = 2 To inputval

            Factorial = Factorial * f

        Next

    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Label2.Visible = True

        Dim myNumber1, mynumber2 As Integer

        myNumber1 = Val(TextBox1.Text)

        mynumber2 = Factorial(Val(TextBox1.Text))

        Label2.Text = "The factorial value of " & myNumber1 & _

                      " is " & mynumber2 & "."

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Label2.Visible = False

        TextBox1.Text = ""

        Label2.Text = ""

        Label2.Text = ""

        TextBox1.Focus()

    End Sub

End Class