miércoles, 12 de noviembre de 2008

Codigo para hallar el factorial de un numero

Dim res, num1, cont As Double

Private Sub Command1_Click()
res = 1

For cont = 1 To num1
res = res * cont
Text2.Text = res
Next


End Sub

Private Sub Command2_Click()
Text1.Text = " "
Text2.Text = " "
Text1.SetFocus

End Sub

Private Sub Command3_Click()
End
End Sub



Private Sub Text1_Change()
If Text1.Text <> " " Then
num1 = Val(Text1.Text)
End If
End Sub


7 comentarios:

Polo Joven Charalá dijo...

Oyeme! Socio Que Buen Codigo! Oyeme Qe Tan Facil Es Pata Ti! Pasarme! Otra Cantidad!De Codigos! Qe Necesito Para Elaborar Un Software

Unknown dijo...

de verdad muchas gracias me ayudo bastante tu blog....un millon de gracias sigue asi

Kal dijo...

porque res vale 1 alguien me puede explicar

Unknown dijo...

muchas gracias me salvaste de una....muy buen aporte continua con los codigos....saludos

Unknown dijo...

Bueno, ami me funciono agregándole (( num1 = Text1.txt ))->>

res = 1
num1 = Text1.txt
For cont = 1 To num1
res = res * cont
Text2.txt = res
Next

Unknown dijo...

Gracias por el Aporte!!! :-)

Unknown dijo...

Estructura para calcular el factorial de un número en visual Básic con su código fuente y razonamiento para dar solución al problema