Buscando código de programación VB: Pregunta: ¿Determinar si un número es primo?

El principio para juzgar los números primos es:

Un número primo es un número que solo se puede dividir por 1 y por sí mismo. Por ejemplo, 3 solo puede ser divisible entre 1 y 3, 17 solo puede ser divisible entre 1 y 17, etc. Si lo piensas bien, 9 no es un número primo (divisible entre 1, 3 y 9).

El algoritmo de programación es:

El método exhaustivo es dividir el número que necesita ser juzgado dividiéndolo por 2, dividiendo por 3... y dividiendo hasta que el número sea reducido en 1.

Por ejemplo: el algoritmo para determinar si 7 es un número primo consiste en realizar las siguientes operaciones: 7/2, 7/3, 7/4, 7/5, 7/6 Si ninguno de ellos se puede dividir durante el proceso de división anterior, entonces se puede concluir que 7 es un número primo; de lo contrario, significa que 7 no es un número primo.

Nota: Utilice la operación del resto al programar para determinar si se puede dividir.

El programa de referencia es el siguiente:

dim i como entero

dim j como entero

dim x como entero

x=val(inputbox("Ingrese un número natural:","Indicador de entrada"))

para i=2 a x-1

si x mod i=0 luego salga para

siguiente i

si i=x entonces 'Si el valor de i cambia a x, significa que el bucle anterior se ha ejecutado por completo

imprime x & "es un número primo"

else

imprime x & "no es un número primo" 'Si i

endif

Por supuesto, el programa también se puede optimizar. Por ejemplo, no es necesario dividirlo en n-1, se puede dividir en. n debajo de la raíz cuadrada

Ejemplo 1: Determina si 25 es Si no es un número primo, solo necesitas dividirlo entre 5

Ejemplo 2: Si la raíz es. un decimal, puedes redondearlo. Por ejemplo, para determinar si 15 es un número primo, solo necesitas dividirlo por 3.

El programa simplificado se ejecutará más rápido.