Tämän matemaattisen sarjan k:nnen termin, Tk, määrittää seuraava kaava:
| Tk | = | k2 + 6k + 1 |
| 9k + 7 |
Sarjan ensimmäinen termi, T1, saadaan korvaamalla k = 1 kaavaan i.e.
| T1 | = | 12 + 6 + 1 | = | 1 | ja |
| 9 + 7 | 2 |
| T2 | = | 22 + 12 + 1 | = | 17 | .. ja niin edelleen |
| 18 + 7 | 25 |
Alhaalla tarkastelemme ohjelmaa Excel VBA:lla, joka laskee minkä tahansa termin Tk ja termien yhteenlaskun N:ään asti.
Selitys: Käyttäjällä on mahdollisuus syöttää ”Kaikki” tai ”Parittomat”, jolloin lasketaan vastaavasti sarjan N ensimmäisten termien summa tai vain parittomien termien summa N:ään asti.
Aseta komentopainike laskentataulukkoon ja lisää seuraavat koodirivit:
1. Ensin ilmoitetaan neljä muuttujaa tyyppiä Integer ja yksi muuttuja tyyppiä String.
Dim sumType As String
2. Toiseksi alustetaan muuttujat.
N = Range(”C2”).Value
sumType = Range(”C3”).Value
3. Tyhjennetään kentät.
Range(”C6”).Value = ””
4. Määritä stepSize.
Case Is = ”All”
stepSize = 1
Case Is = ”Odd”
stepSize = 2
Case Else
MsgBox ”Syötä kelvollinen lauseke soluun C3”
End
End Select
Vinkki: Käy läpi Select Case -ohjelmamme oppiaksesi lisää Select Case -rakenteesta.
5. Suorita laskutoimitukset.
Selitys: Käytämme Step-avainsanaa määrittääksemme silmukan laskurimuuttujan inkrementin (1, kun kyseessä on ”Kaikki” ja 2, kun kyseessä on ”Pariton”).
Tulos:
