António Roberto Software

a.roberto@mail.telepac.pt

Aulas de 20 e 21 de Janeiro de 2003

    Exercício Número por Extenso - 2ª Parte  Casos Especiais      (ver caso geral)

• Exercício de consolidação da matéria leccionada no 1º semestre.

• Diagrama de estrutura

   

  A subrotina cmdNumeroExtenso_Click invoca a função NumeroPorExtenso. A função NumeroPorExtenso invoca as funções Unidades, Dezenas, PrimeitaDezena, Centenas e a subrotina Acrescenta.

   

• Diagrama IPO da Subrotina Acrescenta

  

   

•  Ciclo que extrai um digito do número em cada iteracção e vai construindo a string com o número por extenso:

  Do While s <> ""
      Casa = Len(s)
      Digito = Left(s, 1)
  
      Select Case Casa
          Case 1: ' unidades
              Acrescenta nExtenso, Unidades(Digito)
          Case 2: ' dezenas
              If Digito = 1 Then
                  Acrescenta nExtenso, PrimeiraDezena(s)
                  Exit Do
              Else
                  Acrescenta nExtenso, Dezenas(Digito)
              End If
          Case 3: ' centenas
                  Acrescenta nExtenso, Centenas(Digito)
      End Select
      s = Right(s, Len(s) - 1)
  Loop