Кth срок, Тk, определенного математического ряда определяется следующей формулой:
| Тk | = | k2 + 6к + 1 |
| 9к + 7 |
Первый член T1, ряда получается заменой k = 1 в формулу, т.е.
| Т1 | = | 12 + 6 + 1 | = | 1 | и |
| 9 + 7 | 2 |
| Т2 | = | 22 + 12 + 1 | = | 17 | … и так далее |
| 18 + 7 | 25 |
Ниже мы рассмотрим программу на Excel VBA тот вычисляет любой член Tk и суммирование слагаемых до N.
Объяснение: пользователь может ввести «Все» или «Нечетные», чтобы соответственно вычислить сумму первых N членов ряда или сумму только нечетных членов вплоть до N.
Поместите командную кнопку на свой рабочий лист и добавьте следующие строки кода:
1. Сначала мы объявляем четыре переменные типа Integer и одну переменную типа String.
Размер i, член, N, шаг Размер как целое число
Dim sumType как строка
2. Во-вторых, мы инициализируем переменные.
я = 0
N = Диапазон ("C2"). Значение
sumType = Range ("C3"). Значение
3. Очистите поля.
Диапазон ("A8: B1000"). Значение = ""
Диапазон ("C6"). Значение = ""
4. Определите stepSize.
Выберите Case sumType
Case Is = "Все"
stepSize = 1
Case Is = "Odd"
stepSize = 2
Case Else
MsgBox "Введите допустимое выражение в ячейку C3"
Конец
Конец Выбрать
Совет: пройдите нашу программу Select Case, чтобы узнать больше о структуре Select Case.
5. Проведите расчеты.
Для term = от 1 до N Шаг stepSize
Ячейки (8 + i, 1) .Значение = срок
Ячейки (8 + i, 2). Value = (term 2 + (6 * term) + 1) / ((9 * term) + 7)
Диапазон ("C6"). Значение = Диапазон ("C6"). Значение + Ячейки (8 + i, 2). Значение
я = я + 1
Следующий семестр
Объяснение: мы используем ключевое слово Step, чтобы указать приращение (1 для «Все» и 2 для «Нечетных») для переменной счетчика цикла.
Результат:
