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

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