necesito ayuda para crear funcion matematica

Hola, estoy creando un programa k calcula las variaciones, las permutaciones y combinaciones.
Si alguien sabe que codigos debo escribir para qualquier funcion de las dichas anteriormente, que me lo explique un poco porfavor. GRACIAS Wink

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 Cool

, 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

Variaciones? es la varianza no? hace muxo k di estadistika y no recuerdo bien.

podrias decir las formulas akiy veremos como se transforma eso al VB

saludos ...

No funciona, por que al defenir una matrix, es estatica el numero de espacios que guarda, por ello no te deja poner variables. tiene que ser constantes, y al ser constantes no se puede modificar en modo ejecucion.

Otra opcion, seria crear una matriz dinamica, que seria declarandola y luego redimensionandola con valores nuevos. quedaria asi:

Dim x()
a = text1
b = text2
c = text3
d = text4

ReDim x(a To b, c To d)

Asi funciona Wink

Salu2s

Miren ya se como hacerlo de una manera mucho mas sencilla y mas rapida:

Public Function Factorial(n As Double) As Double
If n = 0 Then
Factorial = 1
Else
Factorial = n * Factorial(n - 1)
End If
End Function

	Bienvenido(a), Visitante. Favor de ingresar o registrarse. ¿Perdiste tu email de activación? - ſeptiembre 07, 2008, 03:46:23 Boton Buscar