FATORIAL, MUITO DIFICIL DE SE FAZER

USUARIO.EXCLUIDOS 23/03/2004 17:49:22
#16708
oi

olha só o que eu gostaria de fazer e não estou conseguindo

tem um textbox, um botão e um label

no textbox eu digito um número, vamos supor 5, quando eu clicar no botão fatorial, ele faz assim

5.4.3.2.1 = 120

se eu digitar 4, ele faz

4.3.2.1 = 24

como eu faria isso???


muito obrigado
USUARIO.EXCLUIDOS 23/03/2004 17:50:52
#16711
Resposta escolhida
use essa função...

Private Function Fatorial(ByRef Numero As Integer) as Long

If Numero = 1 Then Fatorial = 1 Else Fatorial = Numero * Fatorial(Numero - 1)

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