Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Programa

14/07/2003 - 17:47 por Microsoft | Informe spam
Ayuda Hacer una pregunta
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.

.
email Siga el debateRespuesta 12 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 José Trinidad [El Tiko]
14/07/2003 - 19:13 | Informe spam
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
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Preguntas similares

 

Busqueda sugerida :