Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB "Encontrar la suma de todos los números impares entre 1 y 1000" (hacer estructura while)

Programación VB "Encontrar la suma de todos los números impares entre 1 y 1000" (hacer estructura while)

Envía el código primero y te lo explicaré más adelante en los comentarios. Copie y pegue el siguiente código:

Opción explícita

Subcomando privado1_Click()

Atenuar i mientras

Atenuar s mientras

s = 0

i = 0

Hacer mientras i < 1000

i = i + 1

Si i Mod 2 = 1 Entonces

s = s + i

Fin

Bucle

Imprimir "Calcular entre 1 y 1000 La suma de los números impares es: "; s

End Sub

Mira los resultados en ejecución