Ola de nuevo.
Pues ahora estaba haciendo el factorial de un numero.
El factorial de un numero es el resultado de multiplicar ese numero por el mismo menos 1, es decir.
Factorial de 6 = 6*5*4*3*2*1 = 720
Creo que con el do loop sabria hacerlo, pero con el while wend me da error 6 o el pograma nunca acaba
Os pongo el code que he hecho:
Quisiera que al pulsar un boton, me mostrara en un label el factorial.
Pues ahora estaba haciendo el factorial de un numero.
El factorial de un numero es el resultado de multiplicar ese numero por el mismo menos 1, es decir.
Factorial de 6 = 6*5*4*3*2*1 = 720
Creo que con el do loop sabria hacerlo, pero con el while wend me da error 6 o el pograma nunca acaba
Os pongo el code que he hecho:
Citar
Private Sub Command1_Click()
Dim o As Byte
Dim p As Byte
p = Text1.Text
Label2.Caption = ""
While p > 0
o = p - 1
Label2.Caption = Label2.Caption & (p * o)
Wend
End Sub
Quisiera que al pulsar un boton, me mostrara en un label el factorial.