António Roberto Software

a.roberto@mail.telepac.pt

Aulas de 6 e 7 de Janeiro de 2004

• Ciclo FOR ... NEXT

  • Sintaxe
               For VarCiclo = ValorInicial To ValorFinal [Step Passo]
                  Corpo do Ciclo
             Next VarCiclo

     Como o Step é opcional, se não se explicitar o Step o valor do Passo é 1.

  • Lógica

    

• Exemplos de aplicação

Ciclo While (do programa Tabuada)	Com o ciclo For
Multiplicador = 1 Do While Multiplicador <= 9    Resultado = Num * Multiplicador    lstTabuada.AddItem  CStr(Resultado)    Multiplicador = Multiplicador + 1 Loop	For Multiplicador = 1 To 9    Resultado = Num * Multiplicador    lstTabuada.AddItem  CStr(Resultado) Next Multiplicador
Ciclo While (do programa Somatorio)	Com o ciclo For
Soma = 0 Num = 1 Do While Num <= n    Soma = Soma + Num    Num = Num + 1 Loop	Soma = 0 For Num = 1 To n    Soma = Soma + Num  Next Num

• Desenho do Gráfico do Seno e do Coseno   

Utilização de uma PictureBox para desenhar o gráfico. Desenho da escala do gráfico com o método Scale. Desenho de um ponto do gráfico com o método PSet.

Utilização do ciclo For Next para desenhar ponto a ponto - com o método PSet - os eixos e o gráfico das funções Seno e Coseno.