Red de conocimiento informático - Problemas con los teléfonos móviles - Utilice el método de filtro para encontrar todos los números primos dentro del código m vb y los comentarios

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?

'? 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?