Kth pojam, T.k, određenog matematičkog niza definiran je sljedećom formulom:
| Tk | = | k2 + 6k + 1 |
| 9k + 7 |
Prvi termin, T1, niza dobiven je zamjenom k = 1 u formulu, tj.
| T1 | = | 12 + 6 + 1 | = | 1 | i |
| 9 + 7 | 2 |
| T2 | = | 22 + 12 + 1 | = | 17 | … i tako dalje |
| 18 + 7 | 25 |
U nastavku ćemo pogledati program u Excel VBA da izračunava bilo koji izraz Tk i zbrajanje pojmova do N.
Objašnjenje: korisnik ima mogućnost unijeti "Sve" ili "Nepar", odnosno izračunati zbroj prvih N pojmova niza ili zbroj samo neparnih pojmova do N.
Postavite naredbeni gumb na radni list i dodajte sljedeće retke koda:
1. Prvo, deklariramo četiri varijable tipa Integer i jednu varijablu tipa String.
Dim i, izraz, N, stepSize kao cijeli broj
Dim sumType As String
2. Drugo, inicijaliziramo varijable.
i = 0
N = Raspon ("C2"). Vrijednost
sumType = Raspon ("C3"). Vrijednost
3. Ispraznite polja.
Raspon ("A8: B1000"). Vrijednost = ""
Raspon ("C6"). Vrijednost = ""
4. Odredite stepSize.
Odaberite Vrsta slučaja
Slučaj Is = "Sve"
stepSize = 1
Slučaj je = "Nepar"
stepSize = 2
Drugi slučaj
MsgBox "Unesite valjani izraz u ćeliju C3"
Kraj
Kraj Odaberite
Savjet: prođite kroz naš program Select Case da biste saznali više o strukturi Select Case.
5. Napravite izračune.
Za pojam = 1 do N Korak stepSize
Stanice (8 + i, 1). Vrijednost = pojam
Stanice (8 + i, 2). Vrijednost = (pojam 2 + (6 * pojam) + 1) / ((9 * pojam) + 7)
Raspon ("C6"). Vrijednost = Raspon ("C6"). Vrijednost + ćelije (8 + i, 2). Vrijednost
i = i + 1
Sljedeći termin
Objašnjenje: koristimo ključnu riječ Step za navođenje prirasta (1 za "Sve" i 2 za "Nepar") za varijablu brojača petlje.
Proizlaziti:
