Sobre el significado de i en vb

Private Sub Form_Click()

Atenuar x, i

i = 0

Para x = 1 a 60

Si (x / 3) = (x\ 3) Entonces

Imprime x， 'Hay una coma, la salida no divide las líneas

i = i 1 'Cada vez que se cuenta la salida , agregue 1

End If

Si i Mod 7 = 0 Then 'Cuando el número de salida sea suficiente 7

Imprimir 'Usa imprimir y cambia una línea

Finalizar si

Siguiente x

Finalizar sub