Dim res, num1, cont As DoublePrivate 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:
Oyeme! Socio Que Buen Codigo! Oyeme Qe Tan Facil Es Pata Ti! Pasarme! Otra Cantidad!De Codigos! Qe Necesito Para Elaborar Un Software
de verdad muchas gracias me ayudo bastante tu blog....un millon de gracias sigue asi
porque res vale 1 alguien me puede explicar
muchas gracias me salvaste de una....muy buen aporte continua con los codigos....saludos
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
Gracias por el Aporte!!! :-)
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
Publicar un comentario