Termenul al k-lea, Tk, al unei anumite serii matematice este definit de următoarea formulă:
| Tk | = | k2 + 6k + 1 |
| 9k + 7 |
Primul termen, T1, al seriei se obține prin înlocuirea lui k = 1 în formula i.e.
| T1 | = | 12 + 6 + 1 | = | 1 | și |
| 9 + 7 | 2 |
| T2 | = | 22 + 12 + 1 | = | 17 | …. și așa mai departe |
| 18 + 7 | 25 |
În continuare vom vedea un program în Excel VBA care calculează orice termen Tk și suma termenilor până la N.
Explicație: Utilizatorul are opțiunea de a introduce „All” sau „Odd”, pentru a calcula respectiv suma primilor N termeni ai seriei sau suma doar a termenilor impari până la N.
Puneți un buton de comandă pe foaia de calcul și adăugați următoarele linii de cod:
1. În primul rând, declarăm patru variabile de tip Integer și o variabilă de tip String.
Dim sumType As String
2. În al doilea rând, inițializăm variabilele.
N = Range(„C2”).Value
sumType = Range(„C3”).Value
3. Golim câmpurile.
Range(„C6”).Value = „”
4. Determinați stepSize.
Case Is = „All”
stepSize = 1
Case Is = „Odd”
stepSize = 2
Case Else
MsgBox „Introduceți o expresie validă în celula C3”
End
End Select
Tip: parcurgeți programul nostru Select Case pentru a afla mai multe despre structura Select Case.
5. Efectuați calculele.
Explicație: folosim cuvântul cheie Step pentru a specifica incrementul (1 pentru „All” și 2 pentru „Odd”) pentru variabila contor a buclei.
Rezultat:
.