De k-de term, 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 i.e.
| T1 | = | 12 + 6 + 1 | = | 1 | en |
| 9 + 7 | 2 |
| T2 | = | 22 + 12 + 1 | = | 17 | …. en zo verder |
| 18 + 7 | 25 |
Hieronder bekijken we een programma in Excel VBA dat elke term Tk en sommatie van termen tot N berekent.
Uitleg: 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 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 sumType As String
2. Ten tweede initialiseren we de variabelen.
N = Range(“C2”).Value
sumType = Range(“C3”).Value
3. Leeg de velden.
Range(“C6”).Value = “”
4. Bepaal stepSize.
Case Is = “All”
stepSize = 1
Case Is = “Odd”
stepSize = 2
Case Else
MsgBox “Voer een geldige uitdrukking in cel C3 in”
End
End Select
Tip: neem ons Select Case programma door om meer te leren over de Select Case structuur.
5. Voer de berekeningen uit.
Uitleg: we gebruiken het trefwoord Step om de toename (1 voor “All” en 2 voor “Odd”) voor de tellervariabele van de lus op te geven.
