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