NUMERO FATORIAL

USUARIO.EXCLUIDOS 24/08/2007 14:19:28
#232587

qual o código para resolver um numero fatorial?
Exemplo: 3! = 6
obrigado

USUARIO.EXCLUIDOS 24/08/2007 14:27:55
#232589 Resposta escolhida

Dim Numero as Long
Dim Fatorial as Long

Numero = 3
Fatorial = 1
For i = 2 to Numero
   Fatorial = Fatorial * i
Next


MsgBox Fatorial

Tópico encerrado , respostas não são mais permitidas

Voltar