14.- Loop WHILE WEND

O loop WHILE...WEND serve para realizar um tipo de loop muito utilizado em programação que é o loop Enquanto, que se executa enquanto se cumprir uma condição. A diferença do loop FOR é que este se utiliza quando não conhecemos o número de iterações que temos que realizar.

O loop funciona da seguinte maneira. Quando se vai executar, avalia uma expressão e comprova que esta dá resultados positivos. Se for assim, executa o corpo do loop (as sentenças que continuam até o WEND), em caso contrário se sai. Podemos ver a sintaxe a seguir.

Código:

WHILE (condicao)
          sentencas
          ....
WEND

Agora vamos ver um pequeno exemplo sobre este loop, que realiza uma conta número a número até chegar ao 13. Em cada iteração do loop mostra em uma janelinha o número atual e oferece a possibilidade de altera-lo, já que a janelinha é uma janela Input, que oferece a oportunidade de mudar o valor e devolve esse valor, mudado ou não. Como dizíamos, se deixarmos o exemplo sem tocar nada, contará até 13, mas se introduzirmos um número no inputbox continuará a conta pelo número introduzido. Se o número introduzido for maior que 13 também sairá do loop.

Código:

option explicit
dim a
a = 0
WHILE (a < 13)
  a = a + 1
  a = inputbox("Dá-me um valor inteiro, please","Petição de número",a,200,100)
WEND