¡Urgente! ! ! Programación VB para encontrar la suma de 1 sumado a 100, ¡5 métodos! ! ! ! !

Subcomando privado1_Click()

Atenuar i como entero, s como entero

Para i = 1 a 100

s = s i

Siguiente

Imprimir s

Fin Sub

Subcomando privado2_Click()

Atenuar i como Entero, s como entero

Hacer mientras i lt; = 100

s = s i

i = i 1

Bucle

Imprimir s

End Sub

Subcomando privado3_Click()

Atenuar i como entero, s como entero

Do

i = i 1

s = s i

Bucle mientras i lt = 99

Imprimir s

End Sub

Private Sub Command4_Click()

Atenuar i como entero, s como entero

Mientras que i lt; = 100

s = s i

i = i 1

Wend

Imprimir s

End Sub

Sub privado Command5_Click()

Atenuar i como entero, s como entero

GOTONEXT:

s = s i

i = i 1

Si i lt;= 100 Entonces Ir a GOTONEXT

Imprimir s

End Sub