Repetições
Quando estamos programando, é muito comum notarmos que queremos que o computador faça alguma ação repetidas vezes. Ao invés de digitarmos o código que desencadeia aquela ação várias vezes, é melhor colocarmos aquele código dentro de um bloco de repetição e informar quantas vezes queremos que esse bloco se repita. Observe o código:

Sub Looping()
     Dim numero
     Do While numero < 10
          numero = numero + 1
          MsgBox (numero)
     Loop
End Sub
[ DOWNLOAD ]

No exemplo acima, enquanto o número for menor do que 10, a caixa de mensagem é mostrada. Esse mesmo resultado poderia ser conseguido com o seguinte código:

Sub Looping()
     Dim numero
     For numero = 1 To 10
          MsgBox (numero)
     Next
End Sub
[ DOWNLOAD ]

Então, podemos dizer que as estruturas Do While ... Loop e For... Next são estruturas de repetição. Existem outras estruturas no Visual Basic, mas com essas duas você já consegue resolver diversos problemas de repetição.

Um uso bem interessante para o Do While... Loop é o exemplo a seguir: Sub tem_q_informar_nome()     Dim nomeUsuario As String     nomeUsuario = ""         Do While nomeUsuario = ""             nomeUsuario = InputBox(prompt:="Qual o seu nome?", Title:="Cadastro do nome")         Loop     MsgBox ("Olá, " & nomeUsuario & "! Seja bem-vindo(a) à minha apresentação.") End Sub [ DOWNLOAD ]

[ CRÉDITOS ]