divisores

audreey
29 de Enero del 2010
hola! please necesito de mucho ayudaa!
necesito hacer un programa que me muestra los divisores de X numero en visual basic.
ejemplo 6: 1, 2, 3

mvallejos
29 de Enero del 2010
Simple

Un bucle de 2 a N comparando si la dicivion del numero por el iterador, es igual a la parte entera de esa division

Dim Numero as Integer
Dim i as Integer

Numero = 178

For i= 2 to Numero / 2
If (NUmero / i) = Fix(Numero / i ) Then
Print Numero & " es Divisible por " & i
End if
Next i


Todos los numeros son divisibles 1, por eso se arranca desde 2 hasta Numero / 2, porque una vez que sobrepasas la mitad de ese numero, ya no encuentras divisibles

Saludos