Тхе ктх термин, Т.к, одређеног математичког низа дефинише се следећом формулом:
| Тк | = | к2 + 6к + 1 |
| 9к + 7 |
Први термин, Т.1, серије добија се заменом к = 1 у формулу тј.
| Т1 | = | 12 + 6 + 1 | = | 1 | и |
| 9 + 7 | 2 |
| Т2 | = | 22 + 12 + 1 | = | 17 | … и тако даље |
| 18 + 7 | 25 |
У наставку ћемо погледати програм у Екцел ВБА то израчунава било који израз Т.к и сумирање појмова до Н.
Објашњење: корисник има могућност да унесе „Све“ или „Непарно“, односно да израчуна збир првих Н чланова серије или збир само непарних чланова до Н.
Поставите командно дугме на свој радни лист и додајте следеће редове кода:
1. Прво, декларишемо четири променљиве типа Интегер и једну променљиву типа Стринг.
Дим и, терм, Н, степСизе Ас Интегер
Дим сумТипе Ас Стринг
2. Друго, иницијализујемо променљиве.
и = 0
Н = Опсег ("Ц2"). Вредност
сумТипе = Опсег ("Ц3"). Вредност
3. Испразните поља.
Опсег ("А8: Б1000"). Вредност = ""
Опсег ("Ц6"). Вредност = ""
4. Одредите степСизе.
Изаберите Сум сум тип
Случај Ис = "Све"
степСизе = 1
Случај је = "Непарно"
степСизе = 2
Цасе Елсе
МсгБок "Унесите важећи израз у ћелију Ц3"
Крај
Крај Изаберите
Савет: прођите кроз наш програм Селецт Цасе да бисте сазнали више о структури Селецт Цасе.
5. Урадите прорачуне.
За појам = 1 до Н Корак степСизе
Ћелије (8 + и, 1). Вредност = појам
Ћелије (8 + и, 2). Вредност = (појам 2 + (6 * појам) + 1) / ((9 * израз) + 7)
Опсег ("Ц6"). Вредност = Опсег ("Ц6"). Вредност + ћелије (8 + и, 2). Вредност
и = и + 1
Наредном мандату
Објашњење: користимо кључну реч Степ да наведемо прираштај (1 за "Све" и 2 за "Непар") за променљиву бројача петље.
Резултат:
