- •Visual Basic for Applications
- •1. Основы языка программирования Visual Basic 5
- •1. Основы языка программированияVisualBasic
- •1.1. Общие сведения оVisualBasic
- •1.2. Среда vb, инструментальные средства. Разработка проектов
- •1.3. Типы данных. Константы и переменные
- •1.4. Операции
- •1.5. Ввод и вывод данных
- •1.6. Управляющие операторы
- •1.7. Массивы
- •1.8. Примеры программ работы с числами
- •1.9. Обработка строк. Примеры
- •1.10. Математические вычисления. Другие операторы и функции
- •1.11. Процедуры и функции. Примеры
- •1.12. Работа с файлами
- •2. ОсновыVba
- •3. Практические задания
- •3.1. Практическое задание №1. Знакомство сVba
- •3.2. Практическое задание №2. Линейное программирование
- •3.3. Практическое занятие №3. Программирование ветвлений
- •3.4. Практическая работа №4. Программирование повторений
- •3.5. Практическая работа №5. Работа с массивами
- •3.6. Практическая работа №6. Процедуры и функции
- •3.7. Практическое занятие №7. Файлы. Последовательный доступ
- •3.8. Практическое занятие №8. Файлы с произвольным доступом
- •Задания самостоятельной работы
- •4.1. Линейное программирование
- •4.2. Программирование ветвлений
- •4.3 Программирования циклов
- •4.4. Массивы
- •4.5. Файлы
- •5. Задания для контрольной работы
- •5.1. Для студентов очной формы обучения
- •5.1.1. Линейное программирование
- •5.1.2. Программирование ветвлений
- •5.1.3. Программирование циклов
- •5.1.4. Массивы
- •5.2. Для студентов заочной формы обучения
- •Список литературы
3.2. Практическое задание №2. Линейное программирование
Задание.
Найти значение функции:при любом заданном х |
Прежде чем выполнить это задание познакомимся с основами алгоритмизации и построения блок схем.
Алгоритм, составленный для некоторого исполнителя, можно представить различными способами: с помощью графического или словесного описания, в виде таблицы, последовательностью формул, записанным на алгоритмическом языке (языке программирования). Остановимся на графическом описании алгоритма, называемом блок-схемой. Этот способ имеет ряд преимуществ благодаря наглядности, обеспечивающей, в частности, высокую «читаемость» алгоритма и явное отображение управления в нем.
Прежде всего определим понятие блок-схемы. Блок-схема - это ориентированный граф, указывающий порядок исполнения команд алгоритма.
Основные элементы языка блок-схем
-
Элемент
Описание
Начало или конец алгоритма
Выполнение операций, изменяющих команды (группы команд)
Ввод - вывод данных
Условный переход
Для нашей задачи мы составляем следующий алгоритм:
Откройте приложение MS Excel.
Выполните команду СервисàМакросРедактор Visual Basicили нажмите <Alt+F11>.
Добавьте форму (команда Insert UserForm)
Для изменения размеров формы используйте указатель мыши помещённый в правый нижний угол окна Формы(UserForm)
Разработайте пользовательский интерфейс, расположив на форме с помощью панели инструментов управления (ViewToolBox), следующие объекты управления:Label(Метка),TextBox(Текстовое поле),CommandButton(Командная кнопка).
В окне Properties(Свойства) для каждого объекта управления установить свойства, приведённые в таблице 1.
Таблица 1.
Элемент управления |
Свойства |
Значения |
UserForm |
Caption |
Линейное программирование |
Label1 |
Caption |
Вычисление значения функции y=sin5x+cos3x |
Label2 |
Caption |
X= |
Label3 |
Caption |
Y= |
TextBox1 |
Name |
txtArgument |
TextBox2 |
Name |
txtFunction |
CommadButton1 |
Name |
cmdRun |
Caption |
Вычисление | |
CommadButton2 |
Name |
cmdClear |
Caption |
Очистка |
Для перехода в окно программирования нажмите правую кнопку мыши на объекте CommandButtonи в появившимся контекстом меню выбрать командуView Code
Между строками «PrivateSubcmdRun_Click()» и «EndSub» введите следующий код программы:
Dim Х As Single
Dim Y As Single
Х=Val(txtArgument.Text)
Y = Sin(5 * x) + Cos(3 * x)
txtFunction.Text=Str(Y)
Примерный интерфейс программы и контрольные значения:
Для очистки текстовых полей формы между строками «PrivateSubcmdClear_Click()» и «EndSub» введите следующий код программы:
txtArgument.Text = ""
txtFunction.Text = ""
Напишите программу, которая бы вычисляла значение функции
Создайте в сетевой папке вашей группы свою папку под вашей фамилией и сохраните файл под именем «Функция»