Cómo usar el lenguaje VB para encontrar la suma del número de narcisos y la suma de números primos del 1 al 1000
Mis amigos y yo encontramos una forma más sencilla de encontrar la suma de números primos entre 1 y 1000. El código VB es el siguiente:
Private Sub Command1_Click()
Dim i, s. , n, c Como Doble
i = 3: s = 0
Hacer mientras i lt = 1000
n = 1: c = 0 p >
Hacer mientras n lt;= i
Si i Mod n = 0 Entonces
c = c 1
Finalizar si
n = n 1
Bucle
Si c = 2 Entonces
s = s i
Finalizar si
i = i 2
Bucle
s = s 2
Imprimir s
Fin Sub
Se ejecuta correctamente, concretamente 76127