como identificar numeros primos por debajo de un numero dado ?

[calichecal]

saludos ,estoy intentando hacer ese programa y e intentado de todo ,pero creo que me hace falta conocimiento,este fue el ultimo codigo que intente:
for i = 1 to numerodado
numero_actual = i
for i2 = 1 to numerodado
producto = i2 * i
if producto = numero_actual and i2 <> producto and i <> producto then
no_hay_primo = no_hay_primo + 1
end if
next i2
if no_hay_primo = 0 then
lista_primos = lista_primos & numero_actual
end if
next i
me baso en que los numeros que no son primos son divisibles por otro par de numeros aparte de el mismo y la unidad, pero igual hay no estoy evaluando todas las posibilidades,quisiera saber si hay otra forma de averiguar los primos o si estoy mal de bases matematicas,agradesco la ayuda.

[David]

Hay varios problemas en tu código.

La variable no_hay_primo no la estás reiniciando para volver a comprobar los números.
Además, para saber si un número es múltiplo de otro, sólo tienes que usar Mod (resto):

Código vb:

If numero Mod otro_numero = 0 Then
    ' numero es múltiplo de otro_numero
End If
 

Por lo que tu código debería ser:

Código vb:

For I = 1 To numerodado
    EsPrimo = True
    For I2 = 2 To I - 1
        If I Mod I2 = 0 Then
            EsPrimo = False
            Exit For
        End If
    Next I2
    If EsPrimo Then
        lista_primos = lista_primos & I & ","
    End If
Next I
 

[calichecal]

seme pasaba por alto loque devuelbe mod ,gracias david"