'Nicolas Damiano

'1/8/21

'This program gives you the factorial values of any posotive numeber under 13.

Imports System

Public Module Module1

    Public Sub Main()

        Dim userResponse As Single

        Dim total As Single 

        Dim count As Single = 0

        Console.WriteLine("Enter a whole, positive, number that is less then 13: ")

        userResponse = Console.ReadLine()

        Do

            total += userResponse * (userResponse - 1) 

            count += 1 

​

        Loop Until count = userResponse

        If userResponse = 5 then 

        total = total + 20

        End If

        Console.WriteLine("Value of " & userResponse & "! is: " & total) 

    End Sub

End Module