Programa

Salu2!

Seguramente estas haciendo alguna tarea sobre números primos! :-)
Lo que necesitas es hacer una secuencia desde 2 hasta N para determinar
cuales son divisibles


Private Sub Divisibles(Numero as Long)
Dim Divisibles as String
Dim I as Long
For I=2 to Numero
If Numero Mod I = 0 then Divisibles = Divisibles & vbcrlf &
str(Numero)
Next I
Msgbox "Los Divisibles son:" & Divisibles
End Sub

'Para determinar Números Primos existen otros metodos más eficaces.

Suerte!!!

Att.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
José Trinidad García M. <El Tiko>
(Guía de buen uso del foro)
http://perso.wanadoo.es/rubenvigon/foro
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Mejoraría llegando hasta la mtad del número, pueste entre la mitad y el
número ya no hay mas divisores (Claro el mismo número no entra en está
apreciación).

label_Resultado.caption="1, numero"
for x= 2 to numero/2
if ((numero mod x) = 0) then
Label_Resultado.caption=label_Resultado.caption + "," + trim(x)
next


JOSE DAVID GALVIZ MUÑOZ
Microsoft Certified Professional

"Tazz" escribió en el mensaje
news:

Empieza del 2 por que logicamente todo numero es divisible por 0, y llega
hasta el numero ingresado por que tambien es divisible por el, mmmm si

estoy

bien algo asi es lo que quieres o no?

label_Resultado.caption="1"
for x= 2 to numero
if ((numero mod x) = 0) then
Label_Resultado.caption=label_Resultado.caption + "," + trim(x)
next

pd.: Parece Tarea de Clases, jejejeje y abajo te falto el 10 >=0)
Ricardo Peña
Stgo., Chile
MBPC-Certificado(chileno ahi ke ser)

"Microsoft" escribió en el mensaje
news:#
> Tengo un programa hecho lo que tengo es que hacer una division en dos
campos
> donde quiero que el resultado sea de numeros entero.
> Ejemplo
> 20/20= 1 sobra 0
> 20/1 sobra 0
> 20/2 sobra 0
> 20/4 =5 sobra 0
> 20/5 = 4 sobra 0
>
> Entonces los numeros posibles son:
> 20,1,2,5,4
>
> He tratado de hacer esto pero no me sale espero que algunos de ustedes
tenga
> idea
>
> Gracias
> "Microsoft" wrote in message
> news:
> > Hola Grupo
> >
> > Estoy necesitando una sentencia que haga lo siguiente:
> >
> > Que divida entre X numero y el residuo sea igual a cero y me diga los
> numero
> > que sean divisible entre ese numero, siempre que cumpla con la
condicion.
> >
> > .
> >
> >
>
>

Empieza del 2 por que logicamente todo numero es divisible por 0, y llega
hasta el numero ingresado por que tambien es divisible por el, mmmm si estoy
bien algo asi es lo que quieres o no?

label_Resultado.caption="1"
for x= 2 to numero
if ((numero mod x) = 0) then
Label_Resultado.caption=label_Resultado.caption + "," + trim(x)
next

pd.: Parece Tarea de Clases, jejejeje y abajo te falto el 10 >=0)
Ricardo Peña
Stgo., Chile
MBPC-Certificado(chileno ahi ke ser)

"Microsoft" escribió en el mensaje
news:#

Tengo un programa hecho lo que tengo es que hacer una division en dos

campos

donde quiero que el resultado sea de numeros entero.
Ejemplo
20/20= 1 sobra 0
20/1 sobra 0
20/2 sobra 0
20/4 =5 sobra 0
20/5 = 4 sobra 0

Entonces los numeros posibles son:
20,1,2,5,4

He tratado de hacer esto pero no me sale espero que algunos de ustedes

tenga

idea

Gracias
"Microsoft" wrote in message
news:
> Hola Grupo
>
> Estoy necesitando una sentencia que haga lo siguiente:
>
> Que divida entre X numero y el residuo sea igual a cero y me diga los
numero
> que sean divisible entre ese numero, siempre que cumpla con la

condicion.

>
> .
>
>

Señores gracias por su aporte ya pude resolver el problema con sus ideas.
"Microsoft" wrote in message
news:

Hola Grupo

Estoy necesitando una sentencia que haga lo siguiente:

Que divida entre X numero y el residuo sea igual a cero y me diga los

numero

que sean divisible entre ese numero, siempre que cumpla con la condicion.

.

¿?
Parece que realmente tai curao
Saludos,
daniel

"Tazz" wrote in message
news:

jaja sip pero si es asi tendrias ke poner el x, ams el resultado de la
division

resu=numero / x
num= numero mod x

label_resultado.caption=labelResultado.caption + "," resu + "," + num


jejee y no kedaria muy bonito por ke no estan en orden ascendente
simplemente por eso lo hice hasta el final
Ricardo Peña
Stgo., Chile
MBPC-Certificado(chileno ahi ke ser)
"Programmer" escribió en el mensaje
news:
> Mejoraría llegando hasta la mtad del número, pueste entre la mitad y el
> número ya no hay mas divisores (Claro el mismo número no entra en está
> apreciación).
>
> label_Resultado.caption="1, numero"
> for x= 2 to numero/2
> if ((numero mod x) = 0) then
> Label_Resultado.caption=label_Resultado.caption + "," + trim(x)
> next
>
>
> JOSE DAVID GALVIZ MUÑOZ
> Microsoft Certified Professional
>
> "Tazz" escribió en el mensaje
> news:
> > Empieza del 2 por que logicamente todo numero es divisible por 0, y
llega
> > hasta el numero ingresado por que tambien es divisible por el, mmmm si
> estoy
> > bien algo asi es lo que quieres o no?
> >
> > label_Resultado.caption="1"
> > for x= 2 to numero
> > if ((numero mod x) = 0) then
> > Label_Resultado.caption=label_Resultado.caption + "," + trim(x)
> > next
> >
> > pd.: Parece Tarea de Clases, jejejeje y abajo te falto el 10 >=0)
> > Ricardo Peña
> > Stgo., Chile
> > MBPC-Certificado(chileno ahi ke ser)
> >
> > "Microsoft" escribió en el mensaje
> > news:#
> > > Tengo un programa hecho lo que tengo es que hacer una division en

dos

> > campos
> > > donde quiero que el resultado sea de numeros entero.
> > > Ejemplo
> > > 20/20= 1 sobra 0
> > > 20/1 sobra 0
> > > 20/2 sobra 0
> > > 20/4 =5 sobra 0
> > > 20/5 = 4 sobra 0
> > >
> > > Entonces los numeros posibles son:
> > > 20,1,2,5,4
> > >
> > > He tratado de hacer esto pero no me sale espero que algunos de

ustedes

> > tenga
> > > idea
> > >
> > > Gracias
> > > "Microsoft" wrote in message
> > > news:
> > > > Hola Grupo
> > > >
> > > > Estoy necesitando una sentencia que haga lo siguiente:
> > > >
> > > > Que divida entre X numero y el residuo sea igual a cero y me diga
los
> > > numero
> > > > que sean divisible entre ese numero, siempre que cumpla con la
> > condicion.
> > > >
> > > > .
> > > >
> > > >
> > >
> > >
> >
> >
>
>