Função Fatorial

Exercício Intermediário

Enunciado

Crie uma função para calcular o valor de um fatorial $N!$

Este é um exercício clássico de provas de processos seletivos.

Conceitos Sugeridos:

Dim
For Next
Function

Lembre-se que na maioria dos casos há mais de uma forma de resolver o problema.

Dica: Inicie o processo a partir de 0!

Exercício Resolvido

Resolvendo o Problema

Criamos a função e definimos o tipo de dados da entrada como Integer e da saída como Long (pois o número poderá aumentar consideravelmente)
```
Function FacTorial(N As Integer) As Long
```
Declaramos as variáveis e atribuimos o valor 1 a nossa variável Result, tendo em vista que fatorial de 0 é igual a 1 (0! = 1)
```
Dim i As Integer
Dim Result As Integer

Result = 1
```
Criamos um loop For Next, cujo valor final (N!) vem da entrada da função, na qual a cada iteração avançamos mais um passo na produtória (acumulando o resultado na variável Result).
```
For i = 1 To N
    Result = Result * i
Next i
FacTorial = Result
```

Código Consolidado

    Function FacTorial(N As Integer) As Double

    Dim i As Integer
    Dim Result As Double

    Result = 1

    For i = 1 To N
        Result = Result * i
    Next i

    FacTorial = Result

    End Function

Exibir Resposta

Download do exercício Download da resposta

SuperExcelVBA.com é um site voltado ao aprendizado de VBA. Exemplos e explicações podem ter sido simplificados para maior e mais veloz compreensão. Estamos constantemente nos atualizando e corrigindo erros, porém não existe garantia sobre o conteúdo disponível no site. Todos os direitos reservados.

Excel ® é uma marca registrada da Microsoft Corporation.

INTRODUÇÃO

BÁSICO

INTERMEDIÁRIO

AVANÇADO