Den k-te term, Tk, i en bestemt matematisk serie er defineret ved følgende formel:
| Tk | = | k2 + 6k + 1 |
| 9k + 7 |
Den første term, T1, i serien fås ved at indsætte k = 1 i formlen i.e.
| T1 | = | 12 + 6 + 1 | = | 1 | og |
| 9 + 7 | 2 |
| T2 | = | 22 + 12 + 1 | = | 17 | …. og så videre |
| 18 + 7 | 25 |
Nedenfor vil vi se på et program i Excel VBA, der beregner et vilkårligt term Tk og summering af termer 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 termer op til N.
Placér en kommandoknap på dit regneark og tilføj følgende kodelinjer:
1. Først deklarerer vi fire variabler af typen Integer og en variabel af typen String.
Dim sumType As String
2. For det andet initialiserer vi variablerne.
N = Range(“C2”).Value
sumType = Range(“C3”).Value
3. Tøm felterne.
Range(“C6”).Value = “”
4. Bestem stepSize.
Case Is = “All”
StepSize = 1
Case Is = “Odd”
StepSize = 2
Case Else
MsgBox “Indtast et gyldigt udtryk i celle C3”
End
End
End Select
Tip: Gennemgå vores Select Case-program for at lære mere om Select Case-strukturen.
5. Udfør beregningerne.
Forklaring: Vi bruger nøgleordet Step til at specificere inkrementet (1 for “Alle” og 2 for “Ulige”) for tællervariablen i løkken.
Resultat:
