Пособие Серкова1

Блок – схема.

Начало

Ввод b

Вывод R

конец

Добавить необходимые элементы управления, используя панель элементов. На листе Excel (см. рисунок) для создания интерфейса пользователя разместить элементы управления: надпись a=; поле TextBox1 для ввода значения a; надпись x=; поле TextBox2 для вывода значения x; надпись R=; поле TextBox31 для вывода значения R; кнопку CommandButton1 с надписью Вычислить.

51

TextBox1

Label1

CommandButton1

Рисунок 8. – Лист Excel

Событийная процедура кнопки Вычислить. Private Sub CommandButton1_Click()

b = Val(TextBox1.Text) x = -3.15 * b + 2.4

If b ^ 2 > (x + 3.8) ^ 2 Then R = Sin(b - 3 * x) ^ 2

If b ^ 2 = (x + 3.8) ^ 2 Then R = Exp(1.7) + Abs(b - x) If b ^ 2 < (x + 3.8) ^ 2 Then R = Sqr(Abs(x - Sin(b) ^ 2)) TextBox2.Text = Format(x, "0.00000")

textBox3.Text = Format(R, "0.00000") End Sub

Таблица 15 – Идентификаторы.

52

Таблица 16 – Свойства объектов управления.

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

1.Дайте определение разветвляющегося вычислительного процесса. Опишите структуру его алгоритма.

2.Что означают слова «Да» и «Нет», записываемые у выходов блока проверки условия?

3.Объясните назначение, синтаксис и действие оператора Go To.

4.Объясните назначение и действие оператора If. Синтаксис линейной и блоковой записи оператора If. Полная и краткая формы записи оператора If. Использование в блоковом операторе If раздела Else lf.

5.Запись нескольких операторов в разделах Then и Else.

6.Объясните назначение, синтаксис и действие оператора Select Case. Блоксхема алгоритма, соответствующая оператору Select Case. Формы записи тестов оператора Select Case.

7.Элементы управления список и поле со списком: свойства, методы и события.

53

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

Программирование циклических вычислительных процессов.

Цель работы: изучение принципов построения циклических вычислительных процессов с заданным числом повторений цикла.

Циклы применяются для многократного повторения одной или нескольких инструкций. Вообще говоря, цикл нетрудно организовать и без специальных инструкций по схеме:

1)инструкции присвоения начальных значений переменной цикла и другим переменным;

2)инструкции, исполняемые при очередном значении переменной цикла;

3)наращивание (изменение) переменной цикла и, возможно, других переменных, изменяемых одновременно с переменной цикла;

4)проверка переменной цикла на соответствие условию, при котором цикл должен исполняться повторно, и передача управления блоку 2 при выполне-

нии этого условия (IF <условие> GoTo <метка в начале блока 2>).

Но в языках высокого уровня, и в том числе в VBA, предусмотрены инструкции, позволяющие записывать циклы еще компактнее. Проще всего цикл записывается, если известны начальное, конечное значения переменной цикла и шаг ее изменения. В таких случаях используют инструкцию For…Next , имеющую следующий синтаксис:

For счетчик = начало To конец [Step шаг] [инструкции]

[Exit For] [инструкции] Next [счетчик]

Инструкции For…Next в общем случае содержит следующие элементы: Счетчик (переменная цикла) – числовая переменная, используемая в каче-

стве счетчика цикла. Эта переменная не может иметь тип Boolean или быть элементом массива.

Начало – начальное значение переменной цикла. Конец – конечное значение переменной цикла.

Шаг – необязательный аргумент. Значение, на которое изменяется счетчик при каждом выполнении тела цикла. Если это значение не задано, по умолчанию шаг равен 1. Шаг может быть как положительным, так и отрицательным

Инструкции – одна или несколько инструкций между For и Next, которые выполняются указанное число раз.

54

После выполнения всех инструкций цикла значение шаг добавляется к текущему значению переменной счетчик. После этого инструкции цикла либо выполняются в очередной раз, либо цикл завершается и выполнение продолжается с инструкции, следующей за инструкцией Next.

В большинстве случаев циклы этого типа выглядят проще, т.к. обычно не требуется задавать шаг изменения переменной цикла (Step) и не нужно выходить из цикла по дополнительному условию (Exit For).

Задание: в соответствии с заданным вариантом вычислить произведение и сумму, а также вывести таблицы значений х и у, изменяя переменную х от начального значения х, с шагом hx. Разместить задачи на двух закладках. Использовать при разработке программных кодов операторы Do ... Loop и For ... Next.

Варианты заданий

Таблица 7 Варианты заданий

55

Продолжение табл.17

56

Окончание табл. 17

Содержание отчета

1.Текст задания.

2.Эскиз формы.

3.Таблица свойств объектов.

4.Список идентификаторов.

5.Структура приложения.

6.Блок-схема алгоритма

7.Содержимое раздела general и программные коды процедур.

8.Результаты счета.

Пример выполнения работы

Задание: составить приложение для вычисления значения

9

y n!,

n 1

где n! – n-факториал – произведение натурального ряда чисел от 1 до n: n!= 1∙2∙3∙4∙...∙n!.

Разместим на форме две командные кнопки, результаты счета будем выводить в элемент ListBox1 (рисунок 9):

Таблица 18 – Свойства объектов

57

Рисунок 9. – Результат работы приложения

Таблица 19 – Идентификаторы

Процедура вычисления:

Private Sub btnStart_Click() Dim n As Integer

Dim y As Long

Dim p As Long

ListBox1.Clear y = 0

p = 1

For n = 1 To 9 p = 1

For i = 1 To n p = p * i Next i

y = y + p Next n

ListBox1.AddItem (" p= " & p & " y=" & y) End Sub

58

Выход из приложения:

Private Sub btnExit_Click() End

End Sub

Ответ: p= 326880 у = 409113.

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

1.Дайте определение циклического вычислительного процесса, его четырёх основных частей, раскройте их содержание. Что такое переменная цикла?

2.Организация циклических вычислительных процессов с заданным числом повторений с помощью оператора For ... Next. Синтаксис оператора For ... Next. Какой оператор проверяет условие завершения цикла? Правила использования оператора For ... Next.

3.Организация итерационных циклических вычислительных процессов с помощью операторов If, Do ... Loop, While ... Wend. Синтаксис операторов Do ... Loop, While ... Wend.

4.Что такое вложенный цикл? Правила вложения циклов.

5.Опишите алгоритмы накопления сумм и произведений. Что такое рекуррентная формула?

59