Dim cont As Integer While cont <= 10 ListBox1.Items.Add(cont) cont = cont + 1 End Whiledo while (enquanto repita) – Repete uma instrução até que uma condição definida no inicio do laço seja verdade. Exemplo:
Dim cont As Integer Do While cont <= 10 ListBox2.Items.Add(cont) cont = cont + 1 Looploop while (repita enquanto) – Repete uma instrução até que uma condição definida no final do laço seja verdade. Exemplo:
Dim cont As Integer Do ListBox3.Items.Add(cont) cont = cont + 1 Loop While cont <= 10Se desejar, baixe o arquivo fonte com os exemplos de While, Do While e Loop While em Visual Basic. Ou se preferir poderá ver apenas os arquivo executável com os exemplos de While, Do While e Loop While em Visual Basic.