de ke termijn, Tk, van een bepaalde wiskundige reeks wordt gedefinieerd door de volgende formule:
| tk | = | k2 + 6k + 1 |
| 9k + 7 |
De eerste term, T1, van de reeks wordt verkregen door k = 1 in de formule te substitueren, d.w.z.
| t1 | = | 12 + 6 + 1 | = | 1 | en |
| 9 + 7 | 2 |
| t2 | = | 22 + 12 + 1 | = | 17 | … enzovoort |
| 18 + 7 | 25 |
Hieronder zullen we kijken naar een programma in Excel VBA Dat berekent elke term Tk en optelling van termen tot N.
Toelichting: de gebruiker heeft de mogelijkheid om "Alle" of "Oneven" in te voeren om respectievelijk de som van de eerste N termen van de reeks of de som van alleen de oneven termen tot en met N te berekenen.
Plaats een opdrachtknop op uw werkblad en voeg de volgende coderegels toe:
1. Eerst declareren we vier variabelen van het type Integer en één variabele van het type String.
Dim i, term, N, stapgrootte als geheel getal
Dim sumType As String
2. Ten tweede initialiseren we de variabelen.
ik = 0
N = Bereik ("C2"). Waarde
sumType = Bereik ("C3"). Waarde
3. Maak de velden leeg.
Bereik ("A8:B1000"). Waarde = ""
Bereik ("C6"). Waarde = ""
4. Bepaal stapgrootte.
Selecteer Case sumType
Case Is = "Alle"
stapgrootte = 1
Geval Is = "Vreemd"
stapgrootte = 2
Geval Anders
MsgBox "Voer een geldige uitdrukking in cel C3 in"
Einde
Einde selecteren
Tip: doorloop ons Select Case-programma om meer te weten te komen over de Select Case-structuur.
5. Voer de berekeningen uit.
Voor term = 1 tot N Stap stapgrootte
Cellen (8 + i, 1). Waarde = term
Cellen (8 + i, 2). Waarde = (term 2 + (6 * term) + 1) / ((9 * term) + 7)
Bereik ("C6"). Waarde = Bereik ("C6"). Waarde + cellen (8 + i, 2). Waarde
ik = ik + 1
Volgende termijn
Uitleg: we gebruiken het trefwoord Step om de increment (1 voor "All" en 2 voor "Oneven") voor de tellervariabele van de lus te specificeren.
Resultaat:
