Cálculo de Fatoriais

Muita gente precisa usar o cálculo de número fatorias, os famoso N!. Para quem interessar, segue a implementação do código em VBScript.

Function Fatorial( num )
   Dim i, result
   result = 1

   If( num > 0 ) Then
      For i = num to 1 Step -1
         result = result * i
      Next
   ElseIf( num = 0 ) Then
       result = 0
   Else
      For i = num To -1 Step +1
          result = result * i
      Next
    End If

    Fatorial = result
End Function

Nota do editor: E, para quem gosta de brincar com recursividade, o código ficaria assim:

Function fatorial( numero )
 if numero > 1 then fatorial = numero * fatorial( numero - 1 ) else fatorial = 1
End Function

Esta matéria foi postada originalmente no ASP4Developers por Daniel Destro do Carmo (site), que na época era "Analista de Sistemas, Web Developer e Programador Java certificado pela Sun.". Hoje, vai saber...