Den k:e termen, Tk, i en viss matematisk serie definieras av följande formel:
| Tk | = | k2 + 6k + 1 |
| 9k + 7 |
Den första termen, T1, i serien fås genom att ersätta k = 1 i formeln i.e.
| T1 | = | 12 + 6 + 1 | = | 1 | och |
| 9 + 7 | 2 |
| T2 | = | 22 + 12 + 1 | = | 17 | …. och så vidare |
| 18 + 7 | 25 |
Nedan ska vi titta på ett program i Excel VBA som beräknar vilken term som helst Tk och summering av termer upp till N.
Förklaring: Användaren har möjlighet att ange ”Alla” eller ”Udda”, för att respektive beräkna summan av de första N termerna i serien eller summan av endast de udda termerna upp till N.
Placera en kommandoknapp på arbetsbladet och lägg till följande kodrader:
1. Först deklarerar vi fyra variabler av typen Integer och en variabel av typen String.
Dim sumType As String
2. För det andra initialiserar vi variablerna.
N = Range(”C2”).Value
sumType = Range(”C3”).Value
3. Töm fälten.
Range(”C6”).Value = ””
4. Bestäm stepSize.
Case Is = ”All”
stepSize = 1
Case Is = ”Odd”
stepSize = 2
Case Else
MsgBox ”Ange ett giltigt uttryck i cell C3”
End
End Select
Tip: gå igenom vårt Select Case-program för att lära dig mer om Select Case-strukturen.
5. Gör beräkningarna.
Förklaring: Vi använder nyckelordet Steg för att ange ökningen (1 för ”Alla” och 2 för ”Udda”) för loopens räknevariabel.
Resultat:
