divisores de un numero

[jesicabarboza]

hola!!! necesito ayuda porque debo resolver los siguientes:construir una aplicacion(vector)e ingresar un numero hasta 5 cifra. y mostrar los divisores de dicho numero....el tema esta en que me cuesta pasarlo al codigo ...en fin,para algunos de ustedes debe ser re facil,pero yo que recien empiezo me re contra mil vuelve loca!!!.eh intentado pero no me da...auxilio!!!(en vb6)

[sanchy]

tenes el pseudo codigo? ponelo y alguien te lo traduce

[Avellaneda]

Iniciado por jesicabarboza

hola!!! necesito ayuda porque debo resolver los siguientes:construir una aplicacion(vector)e ingresar un numero hasta 5 cifra. y mostrar los divisores de dicho numero....el tema esta en que me cuesta pasarlo al codigo ...en fin,para algunos de ustedes debe ser re facil,pero yo que recien empiezo me re contra mil vuelve loca!!!.eh intentado pero no me da...auxilio!!!(en vb6)

Hola, te pongo una función que devuelve un array con los divisores de un número dado:

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

[jesicabarboza]

gracias avellaneda!!!!!!!!!!!!!!!!!!!!!!!! me salvaste jejejejeje!!!!