Imports System

​

'Dhara Patel

'Jan 11, 2021

'Factorial2 Program 

Public Module Module1

    Public Sub Main()

        Dim value As Integer = 1 

        Dim maxValue As Integer

        Console.WriteLine("Please enter an Integer value: ") 

        maxValue = Console.ReadLine()

        For num As Integer = maxValue to 1 Step -1

            value *= num 

        Next num 

    Console.WriteLine("Value: " & value)

    End Sub

End Module