Utilice la programación VB para resolver todos los números primos hasta 100 y generelos cada 5 filas en la tabla.

Atenuar i como entero

prime = True

Para i = 2 a sqr(n)

si n Mod i = 0 Entonces

prime = False

Salir para

Finalizar si

Siguiente i

Números primos hasta 100:

Para I = 100 a 2 paso -1

si es primo (I) Entonces

ReDim preservar S ( k)

S(k)=I

k = k 1

Ene si

Siguiente I

5 Salida de una sola línea: Private Sub Command1_()

Dim i como entero, j como entero

Aleatorización

Para i = 1 a UBound(a )

Para j = 1 a 5

a(i,j)=I

Form1.print a(i,j)

Siguiente j

Desde1.print

Siguiente i

End Sub