Private Sub CommandButton2_Click(). End ′ Команда закрыть проект

18 19 20 21 22 23 24

End ′ Команда закрыть проект

End Sub

Сохранить проект в папке Второй семестр с именем файла Лаб. 4.

Запуск проекта и запись результата решения

Активизировать форму и запустить проект командой Run.

Ввести в окно значение переменной х равное 0.345

Нажать кнопку Запуск программы

4. В появившемся окне ввести значение переменной а равное 3 щелкнуть ОК

5. Записать результат решения У= - 5.76

Закрыть проект нажатием кнопки на форме Закрыть проект.

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

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

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

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

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

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

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

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

1. Дайте определение переменных и констант.

2. Как в программе объявляются переменные?

3. Как объявляются константы?

4. Какие типы данных поддерживает VBА?

5. Что такое область действия переменной?

6. Определение арифметического выражения.

7. Определение строкового выражения.

8. Определение логического выражения.

9. Определение оператора присваивания.

10. Отличие записей стандартных функций в VBА от принятых в математике.

11. Старшинство операций в арифметическом выражении.

12. Как использовать текстовое поле для ввода числовых данных?

13. Как использовать функцию InputBox для ввода текстовых данных?

14. Как использовать функцию InputBox для ввода числовых данных?

15. Как вывести значение переменной на форму?

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

Разработка проектов в VBA по разветвляющимся программам

Цель работы: освоение операторов безусловной и условной передачи управления, а также оператора выбора. Разработка проектов для решения задач по разветвляющимся программам с применением операторов if и case. При подготовке к работе изучить теоретический материал (с.22 – 26).

Задание № 1. Разработать проект для решения задачи по разветвляющейся программе. Функции для вычисления приведены в табл. Л5.1(вар. 16-30 см. лаб. 1). Порядок выполнения задания 1 приведен ниже. Результатом работы проекта по заданию 1 являются значения У при введенных значениях Х.

Таблица Л5.1 — Варианты к заданию № 1

Функ- ция Усло- вие	sin(x)	cos(x)	tg(x)	e^X	ln(x)		X^2.5	В оста-льных слу- чаях
№вар.
	+		+		+		+
	+	+	+	+
	+		+	+	+
	+			+	+
	+				+	+
	+					+	+
	+	+				+	+
		+	+	+	+
		+		+	+		+
		+			+	+
		+				+	+
		+		+		+	+
			+	+	+
			+		+	+
			+			+	+
	+		+			+	+
				+	+	+

Задание № 2. Условия 2-го задания при использовании оператора CASE, выбираются из табл. Л5.2. При запуске проекта последовательно вводятся входные данные, а в текстовом окне получаем результаты решения. Например, для нулевого варианта последовательно вводятся числа 1, 2, 3, 4, результатом являются слова один, два, три, четыре.

Таблица Л5.2 — Варианты к заданию № 2

№ вар.	Вводимые символы	Выводимая информация
	1, 2, 3, 4	один, два, три, четыре
	О, Д, Т, Ч	1, 2, 3, 4
	1,2,5,6, 8	Январь, Февраль, Май, Июнь, Август
	Я, Ф, М, И, А	1месяц, 2месяц, 5месяц, 6месяц, 8месяц
	1, 2, 3, 4, 5, 6	Понед., Втор., Среда,Четверг,Пятница, Суббот.
	П, В, С, Ч, П, С	1 день, 2 день, 3 день, 4 день,5 день, 6 день
	7, 8, 9, 10,11	Июль, Август, Сентябрь, Октябрь, Ноябрь
	И, А, С, О, Н	7месяц, 8месяц, 9месяц, 10месяц, 11месяц
	0, 1, 2, 3, 4	Черный, Синий, Зеленый, Голубой, Красный
	Ч, С, З, Г, К	0, 1, 2, 3, 4
	О, Х, Н, К, Р, Л	Одесса, Херсон, Николаев, Киев, Ровно, Луцк
	У, З, М, Б, П	Украина, Россия, Молдавия, Болгария, Польша
	S, C, L, E, A	sin(x), cos(x), ln(x), exp(x), abs(x)
	Д, В, П, Л, Е	Днепр, Волга, Прут, Лена, Енисей
	А, Б, В. Г, Д	128, 129, 130, 131, 132
	1, 2, 3, 4, 5	Иванов, Петров, Сидоров, Якушев, Романов
	И, П, С, Я, Р	Иванов, Петров, Сидоров, Якушев, Романов

Порядок выполнения лабораторной работы для задания № 1.

1. Выписать условия индивидуального задания из таблицы Л5.1. Знаком + указаны вычисляемые функции и диапазон изменения Х. Математическая формулировка задачи и данные для ввода х для нулевого варианта записаны ниже.

Х= -2 для первого условия Х= 2.5 для второго условия Х= 10 для третьего условия Х=35 для четвертого условия Х=25 в остальных случаях

Алгоритм решения данной задачи см. глава 5, пример 5.2.

2. Интерфейс пользователя для обоих заданий представлен на рис. Л5.1. Ввод данных выполняется с помощью функции InputBox. Вывод выполняется в окно элемента управления TextBox1 для 1-го задания и TextBox для 2-го задания. Свойства элементов представлены в табл. Л5.3.

Таблица Л5.3 — Таблица свойств элементов

Элемент (Объект)	Свойство	Значение свойства
Форма 1	Caption	Разветвляющаяся программа
Надпись (Label1)	Caption	Группа и фамилия студента № вар.
TextBox1	Text
TextBox2	Text
Кнопка 1	Caption	Запуск 1 программы
Кнопка 2	Caption	Запуск 2 программы
Кнопка 3	Caption	Закрыть проект

Рис. Л5.2. Работа проекта

Рис. Л5.1. Интерфейс

3. Составить разветвляющуюся программу решения задачи с использованием оператора if.

Процедура отклика на кнопку CommanButton1

Private Sub CommandButton1_Click() 'Начало процедуры

Dim x As Single, y As Double ' Объявление типов переменных Х и Y

x = Val(InputBox("Введите х")) ' Ввод значения Х

If x < -1 Then ' Начало оператора if (вычисления у)

y = Sin(x)

ElseIf (2 < x) And (x <= 3) Then

y = Tan(x)

ElseIf (5 < x) And (x <= 20) Then

y = Log(x)

ElseIf x > 30 Then

y = x ^ 2.5

Else

y = 0

End If ' Конец оператора вычисления у

TextBox1.Text = Format(y, "#0.####") 'Вывод с 4-мя знаками после запятой

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

End Sub 'Конец процедуры

Private Sub CommandButton3_Click() ‘ Процедура закрытия проекта

End

End Sub

4. Активизировать форму и запустить проект командой Run (рис. Л5.2). Щелкая по кнопке запуск 1-й программы, ввести значение х равное –2. Щелкнуть ОК и записать результат. Аналогично выполнить для х=2.5; х=10; х=35 и х=25. Закрыть проект и вывести окно Immediate Window (команды View, Immediate Window). Выписать и сравнить полученные результаты.

Выполнение задания 2

Интерфейс прежний. Ввод данных выполняется с помощью функции InputBox. Вывод выполняется в окно элемента управления TextBox2. Свойства элементов представлены в табл. Л5.3.

1. По заданному условию варианта составить программу решения.

Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями: