Kth termín, Tk, určité matematické řady je definován následujícím vzorcem:
| Tk | = | k2 + 6k + 1 |
| 9k + 7 |
První termín, T1, řady získáme dosazením k = 1 do vzorce, tj.
| T1 | = | 12 + 6 + 1 | = | 1 | a |
| 9 + 7 | 2 |
| T2 | = | 22 + 12 + 1 | = | 17 | … a tak dále |
| 18 + 7 | 25 |
Níže se podíváme na program v Excel VBA že vypočítává jakýkoli termín Tk a součet podmínek až N.
Vysvětlení: uživatel má možnost zadat „Vše“ nebo „Liché“ a vypočítat součet prvních N členů řady nebo součet pouze lichých výrazů až do N.
Umístěte na list příkazové tlačítko a přidejte následující řádky kódu:
1. Nejprve deklarujeme čtyři proměnné typu Integer a jednu proměnnou typu String.
Dim i, termín, N, krokVelikost jako celé číslo
Dim sumType As String
2. Zadruhé inicializujeme proměnné.
i = 0
N = Rozsah („C2“). Hodnota
sumType = Rozsah ("C3"). Hodnota
3. Vyprázdněte pole.
Rozsah ("A8: B1000"). Hodnota = ""
Rozsah ("C6"). Hodnota = ""
4. Určete velikost kroku.
Vyberte Case sumType
Case Is = "Vše"
stepSize = 1
Případ je = "lichý"
stepSize = 2
Případ Jinak
MsgBox "Zadejte platný výraz do buňky C3"
Konec
Konec Vybrat
Tip: projděte si náš program Select Case a dozvíte se více o struktuře Select Case.
5. Proveďte výpočty.
Pro výraz = 1 až N Krok krokVelikost
Buňky (8 + i, 1). Hodnota = termín
Buňky (8 + i, 2). Hodnota = (termín 2 + (6 * termín) + 1) / ((9 * termín) + 7)
Rozsah ("C6"). Hodnota = rozsah ("C6"). Hodnota + buňky (8 + i, 2). Hodnota
i = i + 1
Další termín
Vysvětlení: klíčové slovo Step používáme k určení přírůstku (1 pro „Vše“ a 2 pro „Liché“) pro proměnnou čítače smyčky.
Výsledek:
