End Sub ‘ Конец процедуры отклика

Пример процедуры отклика кнопки 2 (2-й задачи нулевого варианта).

Private Sub CommandButton2_Click() ‘ Заголовок процедуры отклика

Dim x, y, xn, xk, dx As Single ‘ Описание вещественных переменных

Dim a As Integer ‘ Описание целых переменных

Const t = 2.65 ‘ Присвоение константе t вещественного числа 2.65

xn = 0 : xk= 2.2: dx= 0.2 ‘ Присвоение значения xn, xk, dx

a = 3 ‘ Присвоение значения a

for x=xn to xk step dx ‘ Оператор цикла for

1: y = (3.5 + x) / (x + 1) – (2 ^ x + a) / Sin(x + 2) – t ‘ Вычисление У

Debug.Print "x= "; x, "y= "; y ‘ Вывод х, у в окно отладки Immediate Window

Next x ‘ Конец области действия DO

textBox1.text= “см. Immediate “

End Sub ‘ Конец процедуры отклика

Пример процедуры отклика кнопки 3 (3-й задачи нулевого варианта).

Private Sub CommandButton3_Click() ‘ Заголовок процедуры отклика

Dim an, S, e As Single ‘ Описание вещественных переменных

Dim n As Integer ‘ Описание целых переменных

e = 0.001 ‘ Присвоение значения

S = 0: n = 1 ‘ Присвоение начального значения

an = n / (n ^ 3 + n ^ 2 + 1) ‘ Вычисление начального an

Do While an >= e ’ Оператор цикла Do While ….. Loop

S = S + an ‘ Получение суммы

n = n + 1 ‘ Изменение n

an = n / (n ^ 3 + n ^ 2 + 1) ‘ Вычисление текущего an

Loop ‘ Конец области действия Do

TextBox2.Text =”S= “ & Format(S, "##0.##") & “n= “ & n ‘ Вывод в TextBox2

End Sub

Оформление протокола лабораторной работы

1. Отчет оформить на рабочем листе 1.

2. В заголовке лабораторной работы записать ее номер и цель проведения.

3. Записать условия индивидуальных заданий и порядок выполнения.

4. На листе 1 записать результаты решения.

5. Записать проект в личную папку под именем Лаб. 6.

6. Подготовиться для ответа на контрольные вопросы при защите лабораторной работы.

Контрольные вопросы

1. Дайте определение циклического алгоритма по переменной.

2. Что такое параметр цикла?

3. Что представляет собой тело цикла?

4. В чем смысл итерационного циклического алгоритма?

5. Как организовать циклическую программу с помощью оператора IF?

6. Когда используется оператор цикла FOR…next?

7. Как функционирует оператор цикла FOR…next ?

8. В чем отличие первой формы от второй оператора цикла FOR?

9. Как выполняется структура оператора Do While... loop ?

10. Как выполняется структура оператора Do ... loop While?

11. Как выполняется структура оператора Do Until... loop ?

12. Как выполняется структура оператора Do ... loop Until ?

Л а б о р а т о р н а я р а б о т а № 7

Обработка одномерных массивов в vbа

Цель работы: разработка проектов по обработке одномерных массивов. При подготовке к работе изучить теоретический материал (с.29 – 31).

Задание №1. Задан массив А=(а_i), i=1,2,...,n. Разработать проект по обработке элементов массива, значения которых выбрать самостоятельно. Варианты заданий приведены в табл. Л7.1, в которой предусмотрен способ вывода результатов решения.

Таблица Л7.1 — Варианты для задания №1

Вар. №	Определить	Способ вывода результатов	Число элементов
0	Упорядочить элементы массива по возрастанию и вывести в окно отладки	Immediate Window	6
1	Найти минимальный и максимальный элементы, а также их индексы	Immediate Window	9
2	Для нечетных элементов найти сумму элементов при ai > d где d - заданное число	TextBox1	7
3	Определить сумму значения индексов всех отрицательных элементов	MsgBox	8
4	Найти произведение элементов, удовлетворяющих условию с< ai < d , где с, d - заданные числа	Immediate Window	7
5	Вывести на экран четные элементы массива и их сумму	Immediate Window	7
6	Определить минимальный элемент при условии аi  0	TextBox1	8
7	Упорядочить элементы массива по убыванию и вывести на экран	Immediate Window	9
8	Найти сумму индексов элементов при условии аi > 0	TextBox1	10
9	Вычислить сумму первых четырех четных элементов массива	MsgBox	12
10	Найти разность и сумму максимального и минимального элементов	Immediate Window	6
11	Найти число нулевых элементов и сумму их индексов	Immediate Window	7
12	Найти число ненулевых элементов и сумму их индексов	Immediate Window	6
13	Определить максимальный элемент из пяти последних элементов	MsgBox	9
14	Найти минимальный элемент среди первых 6 элементов	TextBox1	8
15	Вычислить произведение нечетных элементов массива при ai > d	MsgBox	8
16	Определить сумму четных элементов массива	TextBox1	9
17	Определить число положительных и отрицательных элементов	TextBox1	8
18	Вычислить сумму первых восьми элементов при аi < с	TextBox1	9
19	Вычислить произведение индексов всех положительных элементов	TextBox1	7
20	Вычислить сумму индексов всех отрицательных элементов	MsgBox	8
21	Найти сумму индексов минимального и максимального элементов	Immediate Window	7
22	Вычислить произведение последних пяти нечетных элементов	TextBox1	7
23	Упорядочить по возрастанию первые 10 элементов и вывести на экран	Immediate Window	8
24	Упорядочить по убыванию последние 10 элементов	Immediate Window	9
25	Вывести на экран индексы элементов при xi > c	Immediate Window	10
26	Вывести на экран индексы элементов xi < d	Immediate Window	12
27	Вычислить сумму и произведение четных элементов	Immediate Window	6
28	Найти число элементов, удовлетворяющих условию 4 < ai <8	MsgBox	7
29	Определить суммы четных и нечетных элементов	Immediate Window	6
30	Упорядочить элементы массива по возрастанию и вывести на экран	Immediate Window	9