A Kth kifejezés, T.k, egy bizonyos matematikai sorozatot a következő képlet határozza meg:
| Tk | = | k2 + 6k + 1 |
| 9k + 7 |
Az első ciklus, T.1, a sorozatból úgy kapjuk, hogy k = 1 -et behelyettesítünk a képletbe, azaz
| T1 | = | 12 + 6 + 1 | = | 1 | és |
| 9 + 7 | 2 |
| T2 | = | 22 + 12 + 1 | = | 17 | … stb |
| 18 + 7 | 25 |
Az alábbiakban megnézzük a programot Excel VBA hogy kiszámítja bármelyik kifejezés T.k és a kifejezések összegzése N -ig.
Magyarázat: a felhasználónak lehetősége van az "Összes" vagy a "Páratlan" megadására, hogy kiszámítsa a sorozat első N tagjának összegét, vagy csak a páratlan kifejezések összegét egészen N -ig.
Helyezzen el egy parancsgombot a munkalapon, és adja hozzá a következő kódsorokat:
1. Először négy Integer típusú és egy String típusú változót deklarálunk.
Dim i, kifejezés, N, stepSize As Integer
Dim sumType Mint karakterlánc
2. Másodszor inicializáljuk a változókat.
i = 0
N = Tartomány ("C2"). Érték
sumType = Tartomány ("C3"). Érték
3. Ürítse ki a mezőket.
Tartomány ("A8: B1000"). Érték = ""
Tartomány ("C6"). Érték = ""
4. Határozza meg a stepSize méretet.
Válassza a Case sumType lehetőséget
Az eset = "minden"
stepSize = 1
Az eset = "Páratlan"
stepSize = 2
Más eset
MsgBox "Érvényes kifejezést írjon be a C3 cellába"
Vége
Vége Kiválasztás
Tipp: nézze át a Select Case programot, ha többet szeretne megtudni a Select Case struktúráról.
5. Végezze el a számításokat.
Kifejezésre = 1 - N Lépés stepSize
Sejtek (8 + i, 1). Érték = kifejezés
Sejtek (8 + i, 2). Érték = (kifejezés 2 + (6 * kifejezés) + 1) / ((9 * tag) + 7)
Tartomány ("C6"). Érték = tartomány ("C6"). Érték + cellák (8 + i, 2). Érték
i = i + 1
Következő ciklus
Magyarázat: a Step kulcsszóval adjuk meg a hurok számlálóváltozójának növekményét (1 az „Összes” és 2 a „Páratlan” esetén).
Eredmény:
