Egy bizonyos matematikai sorozat k-edik tagját, Tk-t, a következő képlet határozza meg:
| Tk | = | k2 + 6k + 1 |
| 9k + 7 |
A sorozat első tagját, T1-et, úgy kapjuk, hogy k = 1-t behelyettesítjük az i képletbe.e.
| T1 | = | 12 + 6 + 1 | = | 1 | és |
| 9. + 7 | 2 |
| T2 | = | 22 + 12 + 1 | = | 17 | … és így tovább |
| 18 + 7 | 25 |
A következőkben egy olyan programot nézünk meg Excel VBA-ban, amely kiszámítja bármely Tk terminust és a terminusok összegzését N-ig.
Magyarázat: A felhasználónak lehetősége van az “Összes” vagy a “Páratlan” megadására, hogy a sorozat első N tagjának összegét, illetve N-ig csak a páratlan tagok összegét számítsa ki.
Tegyen egy parancsgombot a munkalapra, és illessze be a következő kódsorokat:
1. Először is deklarálunk négy Integer típusú változót és egy String típusú változót.
Dim sumType As String
2. Másodszor inicializáljuk a változókat.
N = Range(“C2”).Value
sumType = Range(“C3”).Value
3. Ürítsük ki a mezőket.
Range(“C6”).Value = “”
4. Határozza meg a stepSize.
Case Is = “All”
stepSize = 1
Case Is = “Odd”
stepSize = 2
Case Else
MsgBox “Enter a valid expression in cell C3”
End
End Select
Tipp: nézze át a Select Case programunkat, hogy többet megtudjon a Select Case szerkezetről.
5. Végezze el a számításokat.
Magyarázat: A Step kulcsszóval adjuk meg a ciklus számlálóváltozójának növekményét (1 az “Összes” és 2 a “Páratlan” esetén).
Eredmény:
