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
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.