Ktūkst termins, T.k, noteiktas matemātiskas sērijas definē pēc šādas formulas:
| Tk | = | k2 + 6k + 1 |
| 9k + 7 |
Pirmais termiņš, T.1, no sērijas iegūst, aizvietojot formulā k = 1, t.i.
| T1 | = | 12 + 6 + 1 | = | 1 | un |
| 9 + 7 | 2 |
| T2 | = | 22 + 12 + 1 | = | 17 | … un tā tālāk |
| 18 + 7 | 25 |
Zemāk mēs apskatīsim programmu Excel VBA ka aprēķina jebkurš termins T.k un terminu summēšana līdz N.
Paskaidrojums: lietotājam ir iespēja ievadīt “Visi” vai “Nepāra”, lai attiecīgi aprēķinātu sērijas pirmo N terminu summu vai tikai nepāra terminu summu līdz N.
Ievietojiet komandas pogu savā darblapā un pievienojiet šādas koda rindiņas:
1. Pirmkārt, mēs deklarējam četrus Integer tipa mainīgos un vienu String tipa mainīgos.
Dim i, termins, N, stepSize Kā vesels skaitlis
Dim sumType kā virkne
2. Otrkārt, mēs inicializējam mainīgos.
i = 0
N = diapazons ("C2"). Vērtība
sumType = Diapazons ("C3"). Vērtība
3. Iztukšojiet laukus.
Diapazons ("A8: B1000"). Vērtība = ""
Diapazons ("C6"). Vērtība = ""
4. Nosakiet stepSize.
Atlasiet Lietu sumType
Lieta ir "Viss"
stepSize = 1
Lieta ir "nepāra"
stepSize = 2
Cita lieta
MsgBox "Ievadiet derīgu izteiksmi šūnā C3"
Beigas
Beigas Atlasīt
Padoms. Izlasiet programmu Select Case, lai uzzinātu vairāk par Select Case struktūru.
5. Veiciet aprēķinus.
Terminam = 1 uz N Solis stepSize
Šūnas (8 + i, 1). Vērtība = termins
Šūnas (8 + i, 2). Vērtība = (termins 2 + (6 * termins) + 1) / ((9 * termins) + 7)
Diapazons ("C6"). Vērtība = diapazons ("C6"). Vērtība + šūnas (8 + i, 2). Vērtība
i = i + 1
Nākamais termiņš
Paskaidrojums: mēs izmantojam atslēgvārdu Step, lai norādītu cilpas skaitītāja mainīgā pieaugumu (1 - "Visi" un 2 - "Nepāra").
Rezultāts:
