O kth termo, Tk, de uma determinada série matemática é definido pela seguinte fórmula:
| Tk | = | k2 + 6k + 1 |
| 9k + 7 |
O primeiro termo, T1, da série é obtido pela substituição de k = 1 na fórmula i.e.
| T1 | = | 12 + 6 + 1 | = | 1 | e |
| 9 + 7 | 2 |
| T2 | = | 22 + 12 + 1 | = | 17 | …. e assim por diante |
| 18 + 7 | 25 |
Below vamos olhar para um programa em Excel VBA que calcula qualquer termo Tk e soma de termos até N.
Explicação: o usuário tem a opção de entrar “Todos” ou “Ímpar”, para respectivamente calcular a soma dos primeiros N termos da série ou a soma de apenas os termos ímpares até N.
Colocar um botão de comando na planilha e adicionar as seguintes linhas de código:
1. Primeiro, declaramos quatro variáveis do tipo Integer e uma variável do tipo String.
Dim sumType As String
2. Segundo, inicializamos as variáveis.
N = Range(“C2”).Value
sumType = Range(“C3”).Value
3. Esvazie os campos.
Range(“C6”).Valor = “”
4. Determine o tamanho do passo.
>
Case Is = “All”
stepSize = 1
Case Is = “Odd”
stepSize = 2
Case Else
MsgBox “Digite uma expressão válida na célula C3”
End
End Select
Tip: passe pelo nosso programa Select Case para saber mais sobre a estrutura do Select Case.
5. Faça os cálculos.
Explicação: usamos a palavra-chave Step para especificar o incremento (1 para “All” e 2 para “Odd”) para a variável contador do loop.
Resultado:
