VB HitungFaktorial

 Module HitungFaktorial

    'Buka HitungFaktorial.vbproj

    Sub Main()

        Dim bilangan As Integer, hasil As Integer, i As Integer

        bilangan = InputBox("Masuk bilangan ingin: ")

        hasil = 1 : i = bilangan

        Debug.Print(bilangan & "! = " & vbNullChar)

        'iterasi untuk menampilkan urutan bilangan dalam faktorial

        Do While (i >= 1)

            Debug.Print(i & vbNullChar)

            If (i <> 1) Then

                Debug.Print(" x " & vbNullChar)

            Else

                Debug.Print(" = " & vbNullChar)

            End If

            hasil = hasil * i : i = i - 1

        Loop

        'Tampilkan akhir hasil dari faktorial

        Debug.Print(hasil)

    End Sub

End Module