Programación básica vb

Puedo tardar todo el tiempo que quiera, todo el tiempo que quiera

toS = Val(Text1. Text)

Para I = 100 a toS

Si IsSuShu(I) entonces S = S + I

Entonces

etiqueta 1 . La suma de números primos es: "&; S

Conector final

Función privada IsSuShu (S es tan larga como booleana)

Explica si s es un número primo.

Atenuar J siempre

Para J = 2 al sur^ 0.5

Salir de la función si S Mod J = 0

Entonces

IsSuShu = True

Función final