Kth sigt, Tk, af en bestemt matematisk serie er defineret af følgende formel:
| Tk | = | k2 + 6k + 1 |
| 9k + 7 |
Det første udtryk, T1, af serien opnås ved at substituere k = 1 i formlen dvs.
| T1 | = | 12 + 6 + 1 | = | 1 | og |
| 9 + 7 | 2 |
| T2 | = | 22 + 12 + 1 | = | 17 | … og så videre |
| 18 + 7 | 25 |
Nedenfor ser vi på et program i Excel VBA at beregner ethvert udtryk Tk og opsummering af vilkår op til N.
Forklaring: brugeren har mulighed for at indtaste "Alle" eller "Ulige" for henholdsvis at beregne summen af de første N -termer i serien eller summen af kun de ulige udtryk op til N.
Placer en kommandoknap på dit regneark, og tilføj følgende kodelinjer:
1. For det første erklærer vi fire variabler af typen Integer og en variabel af typen String.
Dim i, term, N, stepSize As Integer
Dim sumType som streng
2. For det andet initialiserer vi variablerne.
jeg = 0
N = Område ("C2"). Værdi
sumType = Range ("C3"). Værdi
3. Tøm felterne.
Område ("A8: B1000"). Værdi = ""
Område ("C6"). Værdi = ""
4. Bestem stepSize.
Vælg Case sumType
Sag er = "Alle"
stepSize = 1
Sag er = "ulige"
stepSize = 2
Sag ellers
MsgBox "Indtast et gyldigt udtryk i celle C3"
Ende
Afslut Vælg
Tip: gå gennem vores Select Case -program for at lære mere om Select Case -strukturen.
5. Lav beregningerne.
For term = 1 til N Trin trin Størrelse
Celler (8 + i, 1). Værdi = term
Celler (8 + i, 2). Værdi = (term 2 + (6 * term) + 1) / ((9 * term) + 7)
Område ("C6"). Værdi = Område ("C6"). Værdi + celler (8 + i, 2). Værdi
i = i + 1
Næste periode
Forklaring: vi bruger trin -søgeordet til at angive stigningen (1 for "Alle" og 2 for "Ulige") for tællervariablen i sløjfen.
Resultat:
