007阶乘

Module Module1

    Sub Main()
        factorial()

        Console.ReadLine()
    End Sub

    Private Sub factorial()
        Dim i, result As Integer
        i = 1
        result = 1
        While i <= 5
            result *= i
            i += 1
        End While

        Console.WriteLine(result)
    End Sub
End Module