El término k, 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 i.e.
| 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.
Coloque un botón de comando en su hoja de cálculo y añada las siguientes líneas de código:
1. Primero, declaramos cuatro variables de tipo Integer y una variable de tipo String.
Dim sumType As String
2. En segundo lugar, inicializamos las variables.
N = Range(«C2»).Value
sumType = Range(«C3»).Value
3. Vaciamos los campos.
Range(«C6»).Value = «»
4. Determine stepSize.
Case Is = «All»
stepSize = 1
Case Is = «Odd»
stepSize = 2
Case Else
MsgBox «Introduzca una expresión válida en la celda C3»
End
End Select
Consejo: repase nuestro programa Select Case para aprender más sobre la estructura de Select Case.
5. Haga los cálculos.
Explicación: utilizamos la palabra clave Step para especificar el incremento (1 para «All» y 2 para «Odd») para la variable contador del bucle.
Resultado:
.