problemas con ciclo for vb.net

[mvazquez]

tambien puede ser asi:

Código:

            i = (n / 2);
            while ((i > 0)) 
            {
                if (((n % i) == 0)) 
                {
                    a = (a + i);
                }
                i = (i - 1);
            }