Ktūkst terminas, T.k, tam tikros matematinės serijos apibrėžta pagal šią formulę:
| Tk | = | k2 + 6k + 1 |
| 9k + 7 |
Pirmoji kadencija, T.1, iš serijos gaunamas pakeičiant k = 1 į formulę, t.y.
| T1 | = | 12 + 6 + 1 | = | 1 | ir |
| 9 + 7 | 2 |
| T2 | = | 22 + 12 + 1 | = | 17 | … ir taip toliau |
| 18 + 7 | 25 |
Žemiau apžvelgsime programą Excel VBA kad skaičiuoja bet kuris terminas T.k ir terminų suma iki N.
Paaiškinimas: vartotojas turi galimybę įvesti „Visi“ arba „Nelyginiai“, kad atitinkamai apskaičiuotų serijos pirmųjų N terminų sumą arba tik nelyginių terminų sumą iki N.
Įdėkite komandų mygtuką į savo darbalapį ir pridėkite šias kodo eilutes:
1. Pirma, deklaruojame keturis Integer tipo kintamuosius ir vieną String tipo kintamąjį.
Dim i, terminas, N, stepSize As Integer
Dim sumType kaip eilutė
2. Antra, inicializuojame kintamuosius.
i = 0
N = Diapazonas ("C2"). Reikšmė
sumType = Diapazonas ("C3"). Reikšmė
3. Ištuštinkite laukus.
Diapazonas ("A8: B1000"). Vertė = ""
Diapazonas ("C6"). Vertė = ""
4. Nustatykite stepSize.
Pasirinkite Case sumType
Byla = „viskas“
stepSize = 1
Byla = „nelyginis“
stepSize = 2
Kita byla
„MsgBox“ „Įveskite tinkamą išraišką ląstelėje C3“
Galas
Pabaiga Pasirinkite
Patarimas: peržiūrėkite mūsų pasirinkto atvejo programą ir sužinokite daugiau apie pasirinkto atvejo struktūrą.
5. Atlikite skaičiavimus.
Terminui = 1 iki N Žingsnis stepSize
Ląstelės (8 + i, 1). Vertė = terminas
Ląstelės (8 + i, 2). Vertė = (terminas 2 + (6 * terminas) + 1) / ((9 * terminas) + 7)
Diapazonas („C6“). Vertė = diapazonas („C6“). Vertė + langeliai (8 + i, 2). Vertė
i = i + 1
Kita kadencija
Paaiškinimas: mes naudojame raktinį žodį „Step“, norėdami nurodyti kilpos skaitiklio kintamojo prieaugį (1 - „Visi“ ir 2 - „Nelyginis“).
Rezultatas:
