Ejercicio FACTORIAL en Visual Basic 2010- Modo consola

Escriba un programa que permita calcular el factorial de un número, tome en cuenta que por definición el factorial de cero es 1 y que el usuario no puede ingresar números negativos.

CODIGO:

Sub Main()

        Dim num As Integer

        Dim fact As Long = 1

        Console.WriteLine("Ingrese el numero para calcular el factorial", num)

        num = Console.ReadLine()

        If num > 0 Then

            For i As Integer = num To 1 Step -1

                fact *= i

            Next

            Console.WriteLine("--------------------------------------")

            Console.WriteLine("El factorial de {0} = es {1}", num, fact)

            Console.WriteLine("--------------------------------------")

            Console.WriteLine("Presione enter para continuar")

            Console.ReadLine()

        Else

            Console.WriteLine("No puede ingresar valores negativos")

            Console.WriteLine("Presione enter para continuar")

            Console.ReadLine()

        End If

    End Sub

 
 Se verá de la siguiente manera