K-ula termen, Tk, dintr-o anumită serie matematică este definită de următoarea formulă:
| Tk | = | k2 + 6k + 1 |
| 9k + 7 |
Primul termen, T1, din serie se obține prin substituirea lui k = 1 în formula adică
| T1 | = | 12 + 6 + 1 | = | 1 | și |
| 9 + 7 | 2 |
| T2 | = | 22 + 12 + 1 | = | 17 | … și așa mai departe |
| 18 + 7 | 25 |
Mai jos vom analiza un program în Excel VBA acea calculează orice termen Tk și însumarea termenilor până la N.
Explicație: utilizatorul are opțiunea de a introduce „Toate” sau „Impare”, respectiv pentru a calcula suma primilor N termeni ai seriei sau suma numai a termenilor impari până la N.
Plasați un buton de comandă pe foaia de lucru ș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 i, termen, N, stepSize As Integer
Dim sumType As String
2. În al doilea rând, inițializăm variabilele.
i = 0
N = Interval ("C2"). Valoare
sumType = Range ("C3"). Valoare
3. Goliți câmpurile.
Interval ("A8: B1000"). Valoare = ""
Interval ("C6"). Valoare = ""
4. Determinați stepSize.
Selectați Case sumType
Cazul este = "Toate"
stepSize = 1
Cazul este = "Impar"
stepSize = 2
Alt caz
MsgBox „Introduceți o expresie validă în celula C3”
Sfârșit
Selectare sfârșit
Sfat: parcurgeți programul Select Case pentru a afla mai multe despre structura Select Case.
5. Faceți calculele.
Pentru termen = 1 până la N Pas Dimensiune pas
Celule (8 + i, 1). Valoare = termen
Celule (8 + i, 2). Valoare = (termen 2 + (6 * termen) + 1) / ((9 * termen) + 7)
Interval ("C6"). Valoare = Interval ("C6"). Valoare + Celule (8 + i, 2). Valoare
i = i + 1
Urmatorul termen
Explicație: folosim cuvântul cheie Step pentru a specifica creșterea (1 pentru „Toate” și 2 pentru „Odd”) pentru variabila contor a buclei.
Rezultat:
