programación vb 1-1*2*3+1*2*3*4*5-1*2*3*4*5*6*7+.....

Puedes saber que el enésimo elemento es: (-1)^(n-1)*1*...*(2n-1)' se utiliza para obtener el valor del enésimo elemento Público Función MyGetItem(n As Integer) As Integer

Dim i As Integer

Dim iLastItem As Integer 'El último multiplicador del enésimo elemento

Resultado atenuado como entero

iLastItem = 2 * n - 1

resultado = 1Para i = 1 Para iLastItem

resultado = resultado * i

resultado = resultado * (-1) ^ (n - 1)

Siguiente iMyGetItem = resultado

Función final

Función pública MyCalc(n como entero) como IntegerDim i Como entero

Resultado atenuado Como entero para i = 1 a n

resultado = resultado + MyGetItem(i)

Siguiente i

MyCalc = resultado

La función final simplemente llama a la función MyCalc.