Линейные программы в VBA

Цель работы: описание переменных и констант в VBА. Освоение операторов присвоения и средств ввода – вывода переменных. Разработка проектов для решения задач по линейным программам. При подготовке к работе изучить теоретический материал (с.17 – 22).

Лабораторная работа выполняется в отдельной книге Excel. Загрузить Excel и оформить интерфейс VBA.

Задание №1. Разработать проект для решения задачи по линейной программе. В формулу каждого варианта входят переменные вещественного и целого типа, а также соответствующего типа константы. Для каждой формулы необходимо выполнить замену переменных (, , , и т.д.) на соответствующие имена VBA. Формулы для вычисления приведены в табл. Л4.1.

Таблица Л4.1 – Варианты заданий

№ вар.	Математическая зависимость	Тип переменных	Тип констант
		вещ.	цел.	вещ.	цел.
					-
			a		-
				-
			с		-
			d		-
			k	-
			c		-
			s	-
			a		-
				-
					-
			r		-
			d	-
			f		-
			u		-
					-
				-
					-
					-
				-
					-
				-
					-
					-
				-
					-
					-
				-
					-

Интерфейс пользователя (рис. Л4.1)

Состоит из формы и 6-ти элементов управления на форме: кнопок Запуск и Закрыть (CommandButton), двух текстовых полей (TextBox) и двух элементов надписи (Label). Свойства объектов формы (рис. Л4.2) устанавливаются в соответствии с табл. Л4.2.

Работа проекта

При запуске проекта ввод одной переменной выполняется в окно TextBox1, а ввод другой переменной выполняется с помощью функции InputBox(). Константа описывается в программе. После запуска программы результат решения выводятся в окно TextBox2 (рис. Л4.2).

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

Пример составления программы для нулевого варианта задания

1. Выполнить необходимую замену переменных в математической зависимости на имена VBA.

2. Значения переменных и констант в правой части формулы выбрать самостоятельно, учитывая их тип. Переменные, константы и их значения представить в табл. Л4.3).

Исходная формула

Таблица Л4.3 — Таблица замены переменных и данные ввода

Исходные переменные и константы	Имена VBА	Тип	Значения устанавливаются самостоятельно
(переменная)	v	Вещественный (single)	Вычисляется
(переменная)	x	Вещественный (single)	0.345
(переменная)	a	Целый (integer)
(константа)	t	Вещественный (single)	2.65

Формула с заменой переменных и констант

Процедура отклика на событие кнопки Запуск программы:

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

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

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

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

x = Val(TextBox1.Text) ′ Присвоение значения окна TextBox1 переменной х

a = Val(InputBox(″ Введите значение a ″)) ′ Ввод переменной а

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

TextBox2.Text = Format(y, “##.##”) ′ Вывод в окно TextBox2 значения У

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

Процедура отклика на событие кнопки Закрыть проект: