Министерство образования и науки Российской Федерации
Национальный исследовательский ядерный университет
«МИФИ»
Волгодонский инженерно-технический институт –
Филиал НИЯУ МИФИ
ЯЗЫК ПРОГРАММИРОВАНИЯ VBA
Методические указания к выполнению лабораторных работ по дисциплине «Информатика» для студентов 1 курса
Волгодонск 2017
УДК 004.43(076.5)
ББК 32.81
Я41
Составитель: Драка О.Е.
Язык программирования VBA[Текст]:методические указания к выполнению лабораторных работ по дисциплине «Информатика» для студентов 1 курса / сост. О.Е. Драка. – Волгодонск: ВИТИ НИЯУ МИФИ, 2017. – 32 с.
Рецензент - канд. техн. наук В.А. Толстов
Методические указания содержат пояснения и рекомендации к выполнению лабораторных работ дисциплине «Информатика» в программе MicrosoftExcel (редактор VBA).
____________________________________________________________
ã Волгодонский институт НИЯУ МИФИ, 2017
ã Драка О.Е., 2017
ОГЛАВЛЕНИЕ
1. Лабораторная работа 1. Программирование линейного алгоритма 4
2. Лабораторная работа 2. Программирование
разветвляющегося алгоритма 11
3. Лабораторная работа 3. Программирование циклических алгоритмов 19
4. Лабораторная работа 4. Двумерные массивы 24
Список литературы 30
1Лабораторная работа №1
Программирование линейного алгоритма
Цель работы: изучить объекты VBA, их свойства, элементы управления, научиться программировать на VBA линейный алгоритм.
1.1 Краткие теоретические сведения
Редактор VBA можно вызвать помощи комбинации клавиш Alt+F11.
Математические операции VBA представлены в таблице 1.1.
Таблица 1.1 – Математические операции VBA.
| Выражение | Операция |
| А+В | Сложение |
| А-В | Вычитание |
| А*В | Умножение |
| А/B | Деление |
| A\B | Целочисленное деление |
| A mod B | Остаток от деления по модулю |
| A^B | Степень |
Математические функции VBA представлены в таблице 1.2.
Таблица 1.2. – Стандартные математические функции на VBA.
| Обращение | Функция |
| Abs(x) | модуль аргумента |
| Atn(x) | арктангенс (радианы) |
| Cos(x) | косинус (х в радианах) |
| Exp(x) | экспонента |
| Int(x) | целая часть х, полученная отбрасыванием дробной части |
| Fix(x) | число, округленное до ближайшего меньшего целого |
| Log(x) | натуральный логарифм х |
| Sin(x) | синус (х – в радианах) |
| Sqr(x) | корень квадратный |
| Tan(x) | тангенс х |
1.2 Задание к выполнению
1. Написать программу на VBA для вычисления значения функции Z=F(x,y,a) согласно своему варианту (таблица 1.3).
2. Вычислить значение функции Z=F(x,y,a) в программе MathCAD.
3. Составить блок-схему программы.
1.3 Решение типового примера
Вычислить значение функции с=exp(а)+b.
Решение:
1. Активизировать редактор VBA командой Alt+F11.
2. Выполнить команду INSERT/USER FORM
3. Поместить на форму элементы, требуемые для решения задачи, с панели элементов, и расположить их нужным образом (рисунок 1.1).
Рисунок 1.1 – Интерфейс программы
4. Изменить свойства объектов на форме c помощью окна свойств (таблица 1.3).
Таблица 1.3 – Свойства объектов.
| Свойство | Значение |
| Label1.Caption | A |
| Label2.Caption | B |
| Label3.Caption | C |
| CommandButton1 | Результат |
| CheckBox1.Caption | Очистка окон |
| Для всех объектов свойство.BackColor | Выбрать любой цвет из палитры цветов |
| Для Label1, Label2, Label3 свойство Font |
5. Написать программный код. Для этого рекомендуется выполнить двойной щелчок по кнопке результат и перейти в окно программы, где набрать текст процедуры обработки события Click() для кнопки и для флажка(CheckBox1):
PrivateSubCheckBox1_Click()
TextBox1.Text=””‘ ОчисткаполяTextBox1
TextBox2.Text=””‘ ОчисткаполяTextBox2
TextBox3.Text=””‘ ОчисткаполяTextBox3
TextBox3.Visible=False‘ ПолеTextBox3 становитсяневидимым
TextBox1.SetFocus‘ Установление курсора в поле TextBox1
CheckBox1.Value=False ‘Исчезает галочка в поле CheckBox1
EndSub
6. Дважды щелкнуть по командной кнопке CommandButton1 и написать программный код:
PrivateSubCommandButton1_Click()
DimaAsDouble‘ Описание переменной а вещественного типа
DimbAsDouble‘ Описание переменной b вещественного типа
DimcAsDouble‘ Описание переменной c вещественного типа
a=TextBox1.Value‘ Ввод переменной а в поле TextBox1
b=TextBox2.Value‘ Ввод переменной b в поле TextBox2
c=exp(a)+b ‘ Вычисление значения выражения
TextBox3.Value=c‘ Вывод значения переменной с в TextBox3
EndSub
1.4 Блок-схема программы
Блок-схема программы выглядит так, как показано на рисунке 1.2.
 |
Рисунок 1.2 – Блок-схема программы
1.5 Задания к выполнению
Задания к выполнению представлены в таблице 1.3.
Таблица 1.3 – Задания к выполнению по вариантам
| № варианта | Задание | Значения переменных |
| a=7.395 x=533.56 y=22.97 | |
| a=7.395 x=43.56 y=126.37 | |
| a=4.315 x=53.289 y=822.63 | |
| Продолжение таблицы 1.3 | ||
| a=341.712 x=453.281 y=2.63 | |
| a=444.315 x=753.249 y=82.63 | |
| a=4.385 x=283. 49 y=52.63 | |
| a=244.39 x=75.69 y=82.63 | |
| a=444.315 x=753.249 y=82.63 | |
| a=444.315 x=553.249 y=32.63 | |
| a=414.335 x=753.249 y=5.63 | |
| a=44.317 x=753.249 y=8.63 | |
| a=214.317 x=793.249 y=8.63 | |
| a=44.317 x=753.249 y=188.63 | |
| Продолжение таблицы 1.3 | ||
| a=887.395 x=33.56 y=22.97 | |
| a=7.395 x=43.56 y=926.37 | |
| a=12.37 x=713.22 y=41.95 | |
| a=263.315 x=53.289 y=9.63 | |
| a=41.712 x=953.281 y=12.63 | |
| a=2.44315 x=753.249 y=82.63 | |
| a=4.385 x=283. 49 y=52.63 | |
| a=244.39 x=3.569 y=8.263 | |
| a=444.315 x=7.537 y=8.263 | |
| Продолжение таблицы 1.3 | ||
| a=444.315 x=55.3249 y=42.63 | |
| a=2.14335 x=7.53249 y=5.63 | |
| a=44.317 x=7.53249 y=8.63 | |
| a=244.39 x=75.69 y=82.63 | |
| a=3.44315 x=753.249 b=6.263 | |
| a=4.44315 x=2.53249 b=3.263 | |
| a=414.335 x=753.249 y=5.63 | |
| a=44.317 x=753.249 y=8.63 | |
|
| a=244.39 x=75.69 y=82.63 | |
|
| a=444.315 x=753.249 y=82.63 | |
| Продолжение таблицы 1.3 | ||
| a=444.315 x=553.249 y=32.63 | |
|
| a=414.335 x=753.249 y=5.63 | |
|
| a=44.317 x=753.249 y=8.63 |
2Лабораторная работа №2