Kth termi, T.k, tietyn matemaattisen sarjan määritellään seuraavalla kaavalla:
| Tk | = | k2 + 6k + 1 |
| 9k + 7 |
Ensimmäinen termi, T.1, sarjasta saadaan korvaamalla k = 1 kaavaan, ts.
| T1 | = | 12 + 6 + 1 | = | 1 | ja |
| 9 + 7 | 2 |
| T2 | = | 22 + 12 + 1 | = | 17 | … ja niin edelleen |
| 18 + 7 | 25 |
Alla tarkastelemme ohjelmaa Excel VBA että laskee mikä tahansa termi T.k ja termien yhteenveto N.
Selitys: käyttäjä voi halutessaan kirjoittaa "Kaikki" tai "Pariton" laskeakseen sarjan ensimmäisen N termin summan tai vain parittomien termien summan N asti.
Aseta komentopainike laskentataulukkoosi ja lisää seuraavat koodirivit:
1. Ensin ilmoitamme neljä muuttujaa, joiden tyyppi on Integer, ja yhden muuttujan, joka on tyypin String.
Dim i, termi, N, stepSize kokonaislukuna
Dim sumType merkkijonona
2. Toiseksi alustamme muuttujat.
i = 0
N = Alue ("C2"). Arvo
sumType = Alue ("C3"). Arvo
3. Tyhjennä kentät.
Alue ("A8: B1000"). Arvo = ""
Alue ("C6"). Arvo = ""
4. Määritä stepSize.
Valitse Case sumType
Tapaus on "Kaikki"
stepSize = 1
Tapaus on "Pariton"
stepSize = 2
Asia Muu
MsgBox "Anna kelvollinen lauseke soluun C3"
Loppu
Lopeta Valitse
Vinkki: käy läpi Select Case -ohjelmamme saadaksesi lisätietoja Select Case -rakenteesta.
5. Tee laskelmat.
Termille = 1 - N Vaihe stepSize
Solut (8 + i, 1). Arvo = termi
Solut (8 + i, 2) Arvo = (termi 2 + (6 * termi) + 1) / ((9 * termi) + 7)
Alue ("C6"). Arvo = Alue ("C6"). Arvo + solut (8 + i, 2). Arvo
i = i + 1
Seuraava termi
Selitys: käytämme Step -avainsanaa määrittämään silmukan laskurimuuttujan lisäyksen (1 "Kaikki" ja 2 "Odd").
Tulos:
