[VB.NET] Calcolo del Fattoriale (ciclo Until)

Module Module1

    Sub Main()

        Dim i As Integer 'indice
        Dim n As Integer 'numero inserito dall'utente
        Dim tot As Integer 'totalizzatore
        System.Console.WriteLine("Programma per calcolare il prodotto dei numeri consecutivi. ") 'stringa di descrizione
        System.Console.WriteLine()
        System.Console.WriteLine("Inserisci un numero, sarà calcolata il prodotto dei numeri consecutivi che lo precedono. Esempio: 1*2*3*4... ") 'stringa per dare un istruzione all'utente
        System.Console.WriteLine()
        n = System.Console.ReadLine() 'input n
        i = 1 'i vale 1
        tot = 1 'tot vale 1

        Do Until i > n 'inizio ciclo until
            tot = tot * i 'moltiplicazione
            i = i + 1 'incrementa i
        Loop 'fine until
        'quando i sarà maggiore di n il ciclo si fermerà ed uscirà per mostrare il risultato

        System.Console.WriteLine(tot) 'output del totale
        System.Console.ReadKey() 'leggi tasto per non far sparire la console

    End Sub

End Module