Který člen, Tk, určité matematické řady je definován následujícím vzorcem:
| Tk | = | k2 + 6k + 1 |
| 9k + 7 |
První člen, T1, řady získáme dosazením k = 1 do vzorce i.e.
| 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 Excelu VBA, který vypočítá libovolný člen Tk a součet členů do N.
Vysvětlení: Uživatel má možnost zadat „Všechny“ nebo „Liché“, respektive vypočítat součet prvních N členů řady nebo součet pouze lichých členů do N.
Umístěte na pracovní 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 sumType As String
2. Za druhé inicializujeme proměnné.
N = Range(„C2“).Value
sumType = Range(„C3“).Value
3. Vyprázdníme pole.
Range(„C6“).Hodnota = „“
4. Určete velikost kroku.
Case Is = „All“
stepSize = 1
Case Is = „Odd“
stepSize = 2
Case Else
MsgBox „Zadejte platný výraz do buňky C3“
End
End Select
Tip: projděte si náš program Select Case, abyste se o struktuře Select Case dozvěděli více.
5. Proveďte výpočty.
Vysvětlení: Pomocí klíčového slova Step určíme přírůstek (1 pro „All“ a 2 pro „Odd“) pro proměnnou čítače cyklu.
Výsledek:
.