Mais
×

Como calcular o número de Fibonacci em VBA no Word

Atualizado em 17 abril, 2017

O programa de processamento de texto Microsoft Word inclui o "Visual Basic for Applications" (Visual Basic para Aplicativos), uma ferramenta de programação que possibilita aos usuários a inserção de campos calculados, como a sequência de números de Fibonacci, em documentos de texto. Essa sequência é composta pelos números inteiros 0, 1, 1, 2, 3, 5, 8, 13, 21, ..., onde cada item é a soma dos dois números anteriores da sequência. Implementando um laço infinito em um script VBA, é possível calcular uma sequência de Fibonacci no VBA do Word.

Instruções

Os documentos do Word contêm scripts VBA para calcular campos numéricos (Jupiterimages/Photos.com/Getty Images)
  1. No Windows, clique no botão "Iniciar" e selecione o programa "Microsoft Word".

  2. Clique em "Ferramentas" e selecione "Scripts" para criar um script VBA para calcular uma sequência de Fibonacci.

  3. Insira o seguinte código:

    Function fibonacci(ByVal n as Integer) If (n <= 0) Then fibonacci = 0 ElseIf (n = 1) Then fibonacci = 1 Else fibonacci = fibonacci(n-1) + fibonacci(n-2) End If End Function

  4. Clique em "Arquivo" e selecione "Salvar" para salvar o documento "fib.doc" com o script VBA que calcula a sequência de Fibonacci.

Cite this Article A tool to create a citation to reference this article Cite this Article