VB Encuentra números primos en una matriz

Subcomando privado1_Click()

Atenuar i como entero, num como entero

Atenuar a(100) como entero, b(100) como entero, sí Como booleano

num = 0

Imprimir "El número original es:"

Para k = 1 a 100

a(k ) = Int(Rnd * 1000)

Imprimir a(k);

sí = Verdadero

Si k Mod 10 = 0 Entonces imprimir

Para i = 2 To Sqr(a(k))

Si a(k) Mod i = 0 Entonces sí = Falso: Salir para

Siguiente i

Si es así, entonces

num = num 1

b(num) = a(k) 'Ponlo en la matriz B----- --la parte inferior de la matriz B La marca también está fuera de límites

Finalizar si

Siguiente k

Imprimir: Imprimir "El número primo de esto es:"

Para i = 1 a num

Imprimir b(i);

Si i Mod 10 = 0 Entonces imprimir

Siguiente i

Fin del subtítulo.