Controle Condicional Falso

O laço de repetição com controle condicional pré-teste falso executa as instruções subordinadas de um bloco adjacente no período em que o resultado lógico da condição permanece falso. No momento em que o resultado lógico da condição se tornar verdadeiro, a execução do laço é automaticamente encerrada. Para entender a essa funcionalidade, o ambiente de programação Visual Basic oferece a instrução Do Until/Loop.

Os comandos Do Until e Loop executam certo conjunto de instruções até que a condição verificada seja verdadeira. No momento em que essa condição se torna falsa, o processamento da rotina é desviado para fora do laço. Sendo a condição Falsa, o laço permanece em execução.

Os comandos Do Until e Loop devem ser escritos com a seguinte estrutura:

Do Until <(condição)>

            <Instruções executadas até que condição seja verdadeira>

Loop

Como situação de aplicação, será considerado o cálculo da fatorial de um número qualquer para execução com o laço Do Until e Loop. No tocante à descrição das ações de algoritmo, esse programa é muito semelhante ao anterior. Assim sendo, essa parte está sendo omitida.

Selecione a opção New Projects... do menu FILE, informe na caixa de diálogo New Project no campo Name o nome do projeto controle_condicional_falso e acione o botão OK. Lembre-se de manter selecionada do lado esquerdo a opção Templates/Visual Basic/Windows.

Agora está preparado o formulário usado pelo programa. Estando com um novo projeto aberto, mude a propriedade Text do formulário para Fatorial Pré-Teste Falso.

Em seguida, é inserido no formulário um controle Label, no campo superior esquerdo, tendo sua propriedade Text alterada para Informe um valor:. Ao lado desse Label, insira um controle TextBox. Coloque um controle Button, o qual deve ser sua propriedade Text alterada com o texto Processar. A figura abaixo exibe o formulário até o momento.

A partir do ponto em que o formulário esteja concluído, é montado um código de programa que efetua o cálculo e a apresentação do resultado da fatorial. Portanto, acione o botão Processar e escreva o código seguinte:

   Dim FAT = 1, N, I As Long

        N = Val(TextBox1.Text)

        I = 1

        Do Until (I > N)

            FAT = FAT * I

            I = I + 1

        Loop

        MsgBox("Fatorial = " & Str(FAT), 64, "Resultado da Fatorial")

        TextBox1.Clear()

        TextBox1.Focus()

Para gravar, execute o comando FILE/Save All e, para executar o programa, use o comando de menu DEGUB/Start Debugging.