RE:divisores de un numero
Publicado por
edy (1 intervención) el 18/06/2009 20:08:45
aqui de lo dejo el funcion para resolver tu problema
Function Divisores(ByVal ElNumero As Integer) As Integer()
Dim Contador As Integer, Resto As Integer, i As Integer
Dim ElVector() As Integer, x As Integer
Contador = 2
' dimensionamos el vector
ReDim ElVector(1)
' cargamos el primer elemento, que siempre será 1 (cualquier número es divisible por 1)
ElVector(0) = 1
For i = Contador To ElNumero / 2
Resto = ElNumero Mod Contador
' si el resto de la división es cero, el número es divisible
If ElNumero Mod Contador = 0 Then
' redimensionamos el vector y le añadimos el divisible
ReDim Preserve ElVector(UBound(ElVector) + 1)
x = x + 1
ElVector(x) = Contador
End If
Contador = Contador + 1
Next i
' eliminamos el último elemento del vector porque está en blanco
ReDim Preserve ElVector(UBound(ElVector) - 1)
' retornamos el vector con los divisibles
Divisores = ElVector
End Function