Cita:
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..
Hola, a ver si te vale este procedimiento. Lista en un control ListBox (Name = List1) todos los números primos entre el intervalo indicado:
Código:
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
Para llamar al procedimiento, p.e. desde un CommandButton, le pasas como parámetro el número máximo:
Código:
Private Sub Command1_Click()
BuscarPrimos 15
End Sub
Resultado en el List: 2, 3, 5, 7, 11, 13
