Uso de Instruções While... Wend

A instrução While...Wend é fornecida no BSL para aqueles que estão familiarizados com seu uso. No entanto, como While...Wend não é uma instrução flexível, recomendamos o uso da instrução Do...Loop em seu lugar.

O exemplo a seguir ilustra o uso do loop While Wend:

Exemplo 1:

Sub BasicWhileWend()
    Dim counter, myNum
            counter = 0
            myNum = 5
            While myNum > 0
                myNum = myNum - 1
                counter = counter + 1
            Wend
            'This loop made 5 repetitions
        End Sub