Visual Basic - divisores de un numero

hola recien empiezo a programar en visual basic y el tema es que no me sale cono sacar los divisores de un num: quizas parezca facil pero no se me ocurre nada...... encima no tengo ayuda de nadie .porfis!!! me pueden ayudar:

aquí tienes una forma:

Dim j As Long, r As Long, i As Integer, EsPrimo As Boolean
For j = ElNumero To 1 Step -1
r = ElNumero Mod j
If r = 0 Then i = i + 1
Next j
esPrimo = IIf(i = 2, True, False)

Curiosamente, ningún número es múltiplo de otro número que sea mayor que su mitad.
Eso permite reducir a la mitad las comparaciones.
Además, una vez determinado un divisor entero, no tiene sentido seguir buscando otros, (en este caso)
Todos los números son divisibles por uno.
for n=2 to Número

Curiosamente, ningún número es múltiplo de otro número que sea mayor que su mitad.
Eso permite reducir a la mitad las comparaciones.
Además, una vez determinado un divisor entero, no tiene sentido seguir buscando otros, (en este caso)
Todos los números son divisibles por uno.
for n=2 to (Número/2+1)
if (numero mod n)=0 then
msgbox "No es primo"
exit sub
end if
next
msgbox "Es primo"

Disculpen, se me escapa el tab :)

weona

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

Escriba un procedimiento para calcular e imprimir todos los números enteros comprendidos entre 100 y 999 tales que sean iguales a ala suma de los cubos de sus digitos, es decir, los números de la forma abc, con:
abc = a3 + b3 + c3
si pudieran hacerlo los agradeceria bastante

ELVIN: =)

EN EL PROGRAMA VISUAL BASIC .NET
X FA ES MUY IMPORTANTE SABER COMO SE HALLA LOS DIVISORES DE UN NUMERO .GRACIA S QUIEN ME RESPONDA PLEASE.EN MENOR TIEMPO POSOBLE OK.