Utilice el método de filtro para encontrar todos los números primos dentro del código m vb y los comentarios
Mire mi código: ¿Option?Explicit
Private?Function?IsPrime(ByVal?n?As?Long)?As?Boolean
'? Determinar si un número entero es primo. En caso afirmativo, devuelva True
Dim?i?As?Long,?v?As?Long
If(n?2)?Then v?=?0' By definición, todos los números <2? no se llaman "primos"
'? De lo contrario, v?=?Sqr(n)?Para >2 parámetros, cuadrado (aproximado) Para?i?=?2? ?v?'Encontrar el factor entre 2 y el valor de?If ((n?Mod?i)?=?0)?Then?v?=?0:?Exit?For Next
Fin ?Si
IsPrime?=?v'Si es un número primo, entonces ?v>0? se convierte en Verdadero
Fin?Función
Privado ?Sub? Command1_Click()
'?Ejemplo de aplicación:
Dim?i?As?Long
For?i?=?0?To?100 ?'? Muestra todos los números primos entre 0 y 100. If(IsPrime(i)) Then Print(i;?"IsPrime(i))?Then?Print?i;?" es un número primo"
Siguiente paso
¿Fin?