Programa

Holas,

La verdad es que si esto era una tarea..

Quiere decir que le dimos la respuesta en bandeja de plata y el alumno
aprendió a copiar divinamente.
Sin siquiera entender que fue lo que hizo





"José Trinidad [El Tiko]" escribió en el
mensaje news:

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
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

jajaja ok cuando vengay a chile avisa y juntamos varios, jejejeje en el
tomar no ahi engaño >=0)

Ricardo Peña
Stgo., Chile
MBPC-Certificado(chileno ahi ke ser)
"Javier Balkenende" escribió en el mensaje
news:#E0$

>para reparar mi error no volvere a tomar nunca mas
Toma pero invita...

"Tazz" escribió en el mensaje
news:
> ya ya ya si ya asumi ke me ekivoke por mas arriba no me crucifiquen,
jajaja
> para reparar mi error no volvere a tomar nunca mas, pero a partir del
> miercoles, >=0)
>
> Ricardo Peña
> Stgo., Chile
> MBPC-Certificado(chileno ahi ke ser)
> "Javier Balkenende" escribió en el mensaje
> news:#
> > > Empieza del 2 por que logicamente todo numero es divisible por 0
> > Muchachos, ningún número es divisible por cero.
> >
> >
> > "Tazz" escribió en el mensaje
> > news:
> > > eso eso era, jajaja no tomo nunca ma(desde el miercoles)
> > >
> > > Ricardo Peña
> > > Stgo., Chile
> > > MBPC-Certificado(chileno ahi ke ser)
> > > "Saga" escribió en el mensaje
> > > news:
> > > >
> > > > "Tazz" wrote in message
> > > > news:
> > > > > Empieza del 2 por que logicamente todo numero es divisible por

0,

y
> > > llega
> > > >
> > > > Y uno tambien ;-)
> > > > Saga
> > > >
> > > > > 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.
> > > > > > >
> > > > > > > .
> > > > > > >
> > > > > > >
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
> >
> > Outgoing mail is certified Virus Free.
> > Checked by AVG anti-virus system (http://www.grisoft.com).
> > Version: 6.0.493 / Virus Database: 292 - Release Date: 25/06/2003
> >
> >
>
>



Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.493 / Virus Database: 292 - Release Date: 25/06/2003