fatorial

[explore 3]

Ai pessoal, quero fazer um sistema que calcula o numero e da o valor em fatorial!!!

 

eu fiz usando um FOR mais naum sei se é isso mesmo!!!!

 

ele naum está imprimindo o valor na tela!!!!!

 

ASP

[*]Private Sub btCalcula_Click()

 

[*]Dim i, n, fat As Integer

 

[*]n = 1

 

[*]For i = n To i < 1 Step 1

 

[*]fat = i * n

 

[*]Next

 

[*]If fat * txtNum.Text Then

 

[*]RecebeResult.Caption = fat

 

[*]End If

 

[*]End Sub

 

Falo!!!!!!!!!!

[#rodrigo# 0]

aí vai um com recursão veio ....

 

 

Private Sub btCalcula_Click()    RecebeResult.Caption = Fatorial(txtNum.Text)End SubFunction Fatorial(num As Double) As Double   If (num = 1 Or num = 0) Then      Fatorial = 1   Else      Fatorial = Fatorial(num - 1) * num   End IfEnd Function

[explore 3]

no caso funciono cara!!! Mais como eu faria isso no codigo que criei usando um FOR????

[explore 3]

no caso funciono cara!!! Mais como eu faria isso no codigo que criei usando um FOR????

<{POST_SNAPBACK}>

Ai eu consegui!!!! usei o metodo que você me passo e pela logica fiz um for dentro disso

da uma olhada:

 

ASP

[*]

 

[*]

 

[*]Function Fatorial(num As Double) As Double

 

[*]For num = 0 To num

 

[*]If (num = 1 Or num = 0) Then

 

[*]Fatorial = 1

 

[*]Else

 

[*]Fatorial = Fatorial(num - 1) * num

 

[*]End If

 

[*]Next

 

[*]End Function

 

[*]

 

[*]Private Sub btCalcula2_Click()

 

[*]RecebeResult.Caption = Fatorial(txtNum.Text)

 

[*]End Sub

 

[*]

 

Valeu cara me ajudo muito!!!!!

 

Falo!!!!!!!!!