Factor de un Numero VB 6.0

 
A continuación les mostrare como crear una función que calcule el factor de un numero dichas funciones están escritas en VB 6.0

Public Function Factor1(ByVal Numero As Long) As Long

        Dim Factor As Long

        Dim contador As Long

        contador = Numero - 1

        Factor = Numero

        Do While contador > 0

            Factor = Factor * contador

            contador = contador - 1

        Loop

        Factor1 = Factor

    End Function

    Public Function Factor2(ByVal Numero As Long) As Long

        Dim Factor As Long

        Dim contador As Long

        Factor = Numero

        For contador = Numero - 1 To 1 Step -1

            Factor = Factor * contador

        Next

        Factor2 = Factor

    End Function

    Public Function Factor3(ByVal Numero As Long) As Long

        Dim Factor As Long

        Dim contador As Long

        Factor = Numero

        contador = Numero

retorno:

        contador = contador - 1

        If contador > 0 Then

            Factor = Factor * contador

            GoTo retorno

        End If

        Factor3 = Factor

    End Function