Programación experimental en VB. ¡Rápido, rápido, rápido! ! !

Subcomando privado1_Click()

Atenuar N como entero

Atenuar s como entero

Atenuar i como entero

Para N = 300 a 100 Paso -1

s = 0

Para i = 1 a N

Si N Mod i = 0 Entonces

s = s + 1

Finalizar si

Siguiente i

Si N Mod s = 0 Entonces

Imprimir N

Salir para

Finalizar si

Siguiente N

Fin Sub

Segunda pregunta

Dim s como entero

Dim c como entero, i como entero, j como entero

Dim y como indicador de número primo booleano

Sub privado Command1_Click()

s = 0: c = 0: y = False

Para i = 999 a 3 Paso -2 'No es necesario verificar los números pares

y = Verdadero

Para j = 2 A (i / 2) 'Simplemente verifique hasta i/2

Si i Mod j = 0 Entonces 'Número no primo

Debug.Print i, j 'Solicita el factor más pequeño de este número no primo

y = False

Salir para

Finalizar si

Siguiente j

Si y Entonces

s = s + 1

c = c + i

Depurar.Imprimir "i="; i, "s="; s, "c="; c

Fin

Si s = 5 Entonces

MsgBox "Uno de los 5 números primos más grandes y=" &c

Salir para

Fin

Siguiente i

End Sub