Vb determina la programación de números primos

El llamado número primo se refiere a un número que no es divisible por ningún otro número entero excepto 1 y el número mismo. Por ejemplo, 13 es un número primo porque no es divisible por 2, 3, 4,..., 12.

El método para determinar si un número n (n≥3) es primo es muy sencillo: tomamos n como dividendo y tomamos números enteros desde 2 hasta (n-1) como divisor. Si ninguno de ellos es divisible, entonces n es un número primo.

Subcomando privado 1_Click()

Dim N es largo, el indicador es booleano

N = Val(Text1.Text)

flag = true

Para i = 2 a Sqr(N)

Si N Mod i = 0, entonces

flag = false

Salir para...

Finalizar si...

Entonces

MsgBox N ampIIf(flags, "", "No"); Números primos"

Conector final