Τι κάνει το παρακάτω πρόγραμμα;

Ο κώδικας στο κουμπί "Εκκίνηση" είναι:

Dim arithmos As Integer
Dim artioi As Integer
Dim perittoi As Integer

arithmos = 999
artioi = 0
perittoi = 0

Do While arithmos <> 0
    arithmos = InputBox("Δώσε έναν ακέραιο αριθμό", "Αριθμός")
If arithmos <> 0 Then
    If (arithmos Mod 2) = 0 Then
        artioi = artioi + 1
    ElseIf (arithmos Mod 2) = 1 Then
        perittoi = perittoi + 1
    End If
End If
Loop
Text1 = artioi
Text2 = perittoi