5. Defina um procedimento de nome MeuFactorial que dado um argumento do tipo inteiro calcula o seu factorial. O factorial de um número é definido da seguinte forma:

fact 0 = 1
fact n = n * fact (n-1) para n >= 1

6. Defina um procedimento de nome MeuFibonacci que dado um argumento do tipo inteiro devolve o seu valor na série de Fibonacci. A sucessão de números de Fibonacci é definida da seguinte forma:

fib 0 = 0
fib 1 = 1
fib n = fib (n-1) + fib (n-2) para n >= 2

7. Defina um procedimento de nome AdivinhaA1 que repetidamente pede ao utilizador para introduzir o valor presente na célula A1 até que este introduza o valor correcto. O procedimento deverá mostrar mensagens do tipo 'O valor da célula A1 é menor!' ou 'O valor da célula A1 é maior!' quando o valor introduzido pelo utilizador for respectivamente maior ou menor que o valor em A1. Assim que o utilizador acerte no valor correcto deverá ser apresentada uma caixa de mensagem indicando o número de tentativas utilizadas, como por exemplo, 'Acertou em 3 tentativas!'.

Notas

• Para ocultar o valor da célula A1 faça o seguinte: formate a cor do tipo de letra como branco.
• Para executar o procedimento a partir de um botão faça o seguinte: comece por utilizar a caixa de ferramentas do Visual Basic para inserir um botão de comando na folha de cálculo. Em seguida, mude para o editor do Visual Basic. Na caixa Project seleccione a folha de cálculo onde introduziu o botão e na caixa Properties seleccione o botão de comando e defina as propriedades Name e Caption respectivamente como CommandButtonAdiv e Adivinha A1. Por fim active o módulo da folha de cálculo e introduza o seguinte código:

  Private Sub CommandButtonAdiv_Click()
   AdivinhaA1
End Sub

  No final desta operação, ao premir o botão o procedimento AdivinhaA1 deverá ser executado.