La Kth término, Tk, de una determinada serie matemática se define mediante 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 | … etcétera |
| 18 + 7 | 25 |
A continuación, veremos un programa en Excel VBA ese calcula cualquier término Tk y suma de términos hasta N.
Explicación: el usuario tiene la opción de ingresar "Todos" o "Impar", 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.
Coloque un botón de comando en su hoja de trabajo y agregue las siguientes líneas de código:
1. Primero, declaramos cuatro variables de tipo Integer y una variable de tipo String.
Dim i, term, N, stepSize como entero
Dim sumType como cadena
2. Segundo, inicializamos las variables.
i = 0
N = Rango ("C2"). Valor
sumType = Rango ("C3"). Valor
3. Vacíe los campos.
Rango ("A8: B1000"). Valor = ""
Rango ("C6"). Valor = ""
4. Determine stepSize.
Seleccione Case sumType
Caso es = "Todos"
stepSize = 1
El caso es = "impar"
stepSize = 2
Caso otro
MsgBox "Ingrese una expresión válida en la celda C3"
Fin
Finalizar Seleccionar
Consejo: consulte nuestro programa Select Case para obtener más información sobre la estructura de Select Case.
5. Haz los cálculos.
Para término = 1 a N paso paso
Celdas (8 + i, 1) .Valor = término
Celdas (8 + i, 2) .Valor = (término 2 + (6 * término) + 1) / ((9 * término) + 7)
Rango ("C6"). Valor = Rango ("C6"). Valor + Celdas (8 + i, 2) .Valor
yo = yo + 1
Siguiente término
Explicación: utilizamos la palabra clave Step para especificar el incremento (1 para "Todos" y 2 para "Impar") para la variable de contador del bucle.
Resultado:
