Visual Basic - Suma

Alguien me podria mandar un ejemplo de como utilizar los ciclos For Next, While Wend, Do Loop en Visual Basic 6.0 POR FAVOR HOY TENGO un examen de ese tema

Que tal Jesus, aqui te pongo un ejemplillo muy simple de los ciclos que mencionas.

Public I As Integer
Private Sub Command1_Click()
Label2.Caption = ""
For I = O To Val(Text1.Text)
Label2.Caption = Label2.Caption & "," & I
Next I
End Sub

Private Sub Command2_Click()
Label2.Caption = ""
While I <= Val(Text1.Text)
Label2.Caption = Label2.Caption & "," & I
I = I + 1
Wend
End Sub

Private Sub Command3_Click()
Label2.Caption = ""
Do While I <= Val(Text1.Text)
Label2.Caption = Label2.Caption & "," & I
I = I + 1
Loop
End Sub

Crea un proyecto en Visual, le colocas un formulario con una caja de texto, una etiqueta y tres botones despues le pegas el código y pruebalo.
Espero que te sea de utilidad y mucha suerte con tu examen.
PD. Cualquier duda posteala para tratar de ayudarte mas a fondo

Te envio codigos de ejemplos de un For, while
FOR
Dim Palabras, Caracteres, MiCadena
For Palabras = 10 To 1 Step -1 ' Establece 10 repeticiones.
For Caracteres = 0 To 9 ' Establece 10 repeticiones.
MiCadena = MiCadena & Caracteres ' Agrega un número a la cadena.
Next Caracteres ' Incrementa el contador
MiCadena = MiCadena & " " ' Agrega un espacio.
Next Palabras

While
Dim Contador
Contador = 0 ' Inicializa la variable.
While Contador < 20 ' Comprueba el valor del Contador.
Contador = Contador + 1 ' Incrementa Contador.
Wend ' Finaliza el bucle End While cuando Contador > 19.
Debug.Print Contador ' Imprime 20 la ventana Inmediato