Kth termín, T.kz určitej matematickej série je definovaný nasledujúcim vzorcom:
| Tk | = | k2 + 6k + 1 |
| 9k + 7 |
Prvý termín, T1, radu získame substitúciou k = 1 do vzorca t.j.
| T1 | = | 12 + 6 + 1 | = | 1 | a |
| 9 + 7 | 2 |
| T2 | = | 22 + 12 + 1 | = | 17 | … a tak ďalej |
| 18 + 7 | 25 |
Nižšie sa pozrieme na program v Excel VBA že vypočítava akýkoľvek výraz T.k a súčet termínov až do N.
Vysvetlenie: používateľ má možnosť zadať „všetko“ alebo „nepárne“ a vypočítať tak súčet prvých N výrazov v sérii alebo súčet iba nepárnych výrazov až do N.
Na pracovný hárok umiestnite príkazové tlačidlo a pridajte nasledujúce riadky kódu:
1. Najprv deklarujeme štyri premenné typu Integer a jednu premennú typu String.
Dim i, termín, N, krokVeľkosť ako celé číslo
Dim sumType As String
2. Za druhé, inicializujeme premenné.
i = 0
N = Rozsah („C2“). Hodnota
sumType = Rozsah ("C3"). Hodnota
3. Vyprázdnite polia.
Rozsah ("A8: B1000"). Hodnota = ""
Rozsah ("C6"). Hodnota = ""
4. Určite stepSize.
Vyberte Typ prípadu
Prípad je = "Všetko"
stepSize = 1
Prípad je = „nepárny“
stepSize = 2
Prípad inak
MsgBox "Zadajte platný výraz do bunky C3"
Koniec
Ukončiť výber
Tip: V našom programe Select Case sa dozviete viac o štruktúre Select Case.
5. Vykonajte výpočty.
Pre výraz = 1 až N Krok krokuVeľkosť
Bunky (8 + i, 1). Hodnota = termín
Bunky (8 + i, 2). Hodnota = (termín 2 + (6 * termín) + 1) / ((9 * termín) + 7)
Rozsah („C6“). Hodnota = rozsah („C6“). Hodnota + bunky (8 + i, 2). Hodnota
i = i + 1
Ďalší termín
Vysvetlenie: Kľúčové slovo Step používame na zadanie prírastku (1 pre „všetko“ a 2 pre „nepárne“) pre premennú počítadla slučky.
Výsledok:
