El término kth, Tk, de una cierta serie matemática se define por la siguiente fórmula:
Tk = k2 + 6k + 1 9k + 7
El primer término, T1, de la serie se obtiene sustituyendo k = 1 en la fórmula, es decir
T1 = 12 + 6 + 1 = 1 y 9 + 7 2 T2 = 22 + 12 + 1 = 17 …y así sucesivamente. 18 + 7 25
A continuación veremos un programa en Excel VBA que calcula cualquier término Tk y suma de términos hasta N.
Explicación: el usuario tiene la opción de introducir «Todos» o «Impares», para calcular respectivamente la suma de los primeros N términos de la serie o la suma de sólo los términos impares hasta N.
Coloca un botón de comando en tu hoja de trabajo y añade las siguientes líneas de código:
1. Primero, declaramos cuatro variables de tipo Entero y una variable de tipo Cadena.
Dim i, término, N, tamaño de paso como entero Dim sumType As String
2. Segundo, inicializamos las variables.
i = 0 N = Rango («C2»).Valor sumType = Range(«C3»).Value
3. Vaciar los campos.
Rango(«A8:B1000»).Valor = «» Rango(«C6»).Valor = «»
4. Determinar el tamaño del paso.
Seleccione Case sumType El caso es = «Todo» stepSize = 1 El caso es = «Extraño» stepSize = 2 Caso aparte… MsgBox «Introduzca una expresión válida en la celda C3» Fin Finalizar Seleccionar
Sugerencia: consulte nuestro programa de Selección de Casos para aprender más sobre la estructura de Selección de Casos.
5. Haz los cálculos.
Para el término = 1 a N paso tamaño del paso Células(8 + i, 1).Valor = término Células(8 + i, 2).Valor = (término ^ 2 + (6 * término) + 1) / ((9 * término) + 7) Rango(«C6»).Valor = Rango(«C6»).Valor + Células(8 + i, 2).Valor i = i + 1 El próximo período
Explicación: utilizamos la palabra clave Paso para especificar el incremento (1 para «Todo» y 2 para «Impar») para la variable del contador del bucle.
Resultado:
