Imports System

​

Module Program

    Sub Main()

        Console.WriteLine("Program Menghitung Faktorial")

        Console.Write("Masukkan bilangan: ")

        Dim bilangan As Integer = Integer.Parse(Console.ReadLine())

​

        Dim faktorial As Long = 1

​

        For i As Integer = 1 To bilangan

            faktorial *= i

        Next

​

        Console.WriteLine("Faktorial dari " & bilangan & " adalah " & faktorial)

    End Sub

End Module