Función VB para encontrar si un número es primo

La función privada esprise(x como entero) como entero

Atenuar i como entero

Para i = 2 a x - 1

Si x Mod i = 0 Entonces

Salir para

Finalizar si

Siguiente i

Si i >= x Entonces

isprise = 1

Else

isprise = 0

Finalizar si

Finalizar función

Subcomando privado1 _Click()

Atenuar z como entero

z = InputBox("enter dater")

Si isprise(z) = 1 entonces

Imprimir z; "es un número primo"

Else

Imprimir z; "no es un número primo"

End If

Fin Sub

--Desde la red