07/01/2009, 21:17
| ||||
| ||||
| algun algoritmo o codigo visual basic...para hallar primos holas me dejaron de tarea hallar lso primeros n numero primos.... ejemplo si pongo 15 me debe salir 2, 3, 5, 7,11,13 bueno estuve probando con unos que encontre en la web.. pero no sale bien... sale apartir de 3 aveces me muestra un numero par grande.... muchas cosas distintas a una lista de primos.. alguien que me ayude... como hallar los n primero primos.. gracias.... n interesa si esta en algoritmo.. es bueno tambien... solo es traducir al lenguaje vbasic... gracias..
__________________ Como informático Microsoft no me representa, y como usuario tampoco; ya que no cubre mis necesidades. |
|
08/01/2009, 04:25
| |||
| |||
| Respuesta: algun algoritmo o codigo visual basic...para hallar primos Cita: Hola, a ver si te vale este procedimiento. Lista en un control ListBox (Name = List1) todos los números primos entre el intervalo indicado:
Iniciado por José_Miguel  holas me dejaron de tarea hallar lso primeros n numero primos.... ejemplo si pongo 15 me debe salir 2, 3, 5, 7,11,13 bueno estuve probando con unos que encontre en la web.. pero no sale bien... sale apartir de 3 aveces me muestra un numero par grande.... muchas cosas distintas a una lista de primos.. alguien que me ayude... como hallar los n primero primos.. gracias.... n interesa si esta en algoritmo.. es bueno tambien... solo es traducir al lenguaje vbasic... gracias..
Código:
Para llamar al procedimiento, p.e. desde un CommandButton, le pasas como parámetro el número máximo:Sub BuscarPrimos(ByVal MaxNum As Integer)
Dim i As Integer, y As Integer, x As Integer
List1.Clear
For i = 1 To MaxNum
y = Int(Sqr(i) + 1)
x = 2
Do While (((i Mod x) > 0) And (x <= y))
x = x + 1
Loop
If ((x - 1) = y) Then
List1.AddItem IIf(i = 1, 2, i)
End If
Next i
End Sub
Código:
Resultado en el List: 2, 3, 5, 7, 11, 13Private Sub Command1_Click() BuscarPrimos 15 End Sub  |
