Kth термин, Т.к, на определен математически ред се определя със следната формула:
| Tк | = | к2 + 6k + 1 |
| 9k + 7 |
Първият термин, Т.1, от поредицата се получава чрез заместване на k = 1 във формулата т.е.
| T1 | = | 12 + 6 + 1 | = | 1 | и |
| 9 + 7 | 2 |
| T2 | = | 22 + 12 + 1 | = | 17 | … и така нататък |
| 18 + 7 | 25 |
По -долу ще разгледаме програма в Excel VBA че изчислява всеки термин Т.к и сумиране на термини до N.
Обяснение: потребителят има възможност да въведе „Всички“ или „Нечетни“, съответно да изчисли сумата от първите N членове на поредицата или сумата само от нечетните до N.
Поставете команден бутон на работния си лист и добавете следните кодови редове:
1. Първо, декларираме четири променливи от тип Integer и една променлива от тип String.
Dim i, термин, N, stepSize като цяло число
Dim sumType As String
2. Второ, инициализираме променливите.
i = 0
N = Обхват ("C2"). Стойност
sumType = Диапазон ("C3"). Стойност
3. Изпразнете полетата.
Диапазон ("A8: B1000"). Стойност = ""
Диапазон ("C6"). Стойност = ""
4. Определете stepSize.
Изберете Case sumType
Case Is = "Всички"
stepSize = 1
Случай е = "Нечетно"
stepSize = 2
Дело иначе
MsgBox "Въведете валиден израз в клетка C3"
Край
Край Изберете
Съвет: преминете през нашата програма Select Case, за да научите повече за структурата Select Case.
5. Направете изчисленията.
For term = 1 To N Step stepSize
Клетки (8 + i, 1). Стойност = член
Клетки (8 + i, 2). Стойност = (термин 2 + (6 * срок) + 1) / ((9 * срок) + 7)
Диапазон ("C6"). Стойност = Обхват ("C6"). Стойност + клетки (8 + i, 2).
i = i + 1
Следващия срок
Обяснение: използваме ключовата дума Step, за да зададем увеличението (1 за "Всички" и 2 за "Нечетно") за променливата брояч на цикъла.
Резултат:
