che mira pude hacer lo de permutacion:
'--------------------------------------------------------------------
'codigo hecho por "LA CACA"
'--------------------------------------------------------------------
'por favor mantener este encabezado si va a utilizarlo, thanks
'--------------------------------------------------------------------
Dim x As Integer 'defino variables
Dim u As Double
Private Sub command1_click() 'se necesita un command button
x = Text1.Text 'defino a t como un text1 (que lo tenes que agregar y tiene que ser si o si un numero), para probarlo ponele de texto el numero 8
u = 1 ' defino a u como 1
For a = 1 To x 'digo que a va del numero 1 al numero que tiene el text1
u = u * a 'digo que u = u * el numero 1, 2, 3, 4, 5, 6, 7, 8 (si es que el text1 es
, es decir multiplica a 8*7*6*5*4*3*2*1 (saca factorial)
Next a
Label1.Caption = u 'ahora el label vale el valor de u (el factorial del numero que esta en text1), tenes que agregar un label.
'listo todo listo una masasa
End Sub
Autor