Линейная структура программы в VBA.

Программа на VBA представляет собой последовательность строк. Выполнение линейной программы осуществляется построчно. Основными компонентами программы являются операторы, из которых и состоят строки. Одна строка программы может содержать один или несколько операторов, операторы в строке отделяются друг от друга двоеточием.

Пример 1. Составить в виде блок-схемы и программы алгоритм вычисления объёма розничного товарооборота T = R*N с учётом того, что среднесписочное число работников составляет R=20 и средний оборот на одного работника N=80,50 руб.

Решение: Прежде, чем проводить вычисления по формуле необходимо ввести значения переменных. Среднесписочное работников R имеет целочисленное значение (Integer), средний оборот на одного работника N имеет вещественное значение (Single), результат - объём розничного товарооборота, переменная Т так же имеет вещественное значение (Single).

Блок-схема данного алгоритма имеет вид:

	Sub Пример1() Dim R As Integer Dim N, T As Single R = InputBox("Введите число работников", "Окно ввода") N = InputBox("Введите средний оборот", "Окно ввода") T = R * N MsgBox "Объём товарооборота = " & T End Sub   Рис. 14. Блок-схема алгоритма и текст программы Примера 1 на языке VBA

 

3) Наберите в Окне редактирования кода Листа программу (рис. 14), в которой выполнено описание переменных, их ввод в диалоговое окно ввода, вычисление проведено при помощи оператора присваивания и вывод осуществляется в диалоговое окно вывода.

4) Запустите программу на счёт кнопкой Run Sub ;

5) Выполните ввод числовых значений:

в диалоговое окно с подсказкой – «Введите число работников»

наберите с клавиатуры – 20 в диалоговое окно с подсказкой – «Введите средний оборот» наберите с клавиатуры – 80,50

Рис. 15. Вид диалогового окна ввода InputBox

6) Программа выведет на экран монитора диалоговое окно с результатом вычислений:

Рис. 16. Вид диалогового окна вывода MsgBox

Индивидуальные задания для самостоятельной работы

При выполнении лабораторных работ и индивидуальных заданий студент выбирает вариант своего задания в соответствии с номером занимаемого компьютера в компьютерном классе.

Задание 1. По предложенной блок-схеме разработать программу. Используя функцию Round, округлить результаты вычислений.

1.	2. V=(p*r^2)*h
3. Вывести на экран сообщение: «Здравствуй (свое имя)».	4. Вывести на экран сообщение: «Как твои дела (свое имя)?».

 

5. Y=a^2sin b (a-b^3)	6. Y=a^2 + b^2sin c
7. Y=	8. Y=

 

9. Y=b^2 sin a (c - b^2)	10.

 

Задание 2. Требуется составить и отладить программу на языке VBA и выполнить по ней расчеты на ПЭВМ. Используя функцию Round, округлить результаты вычислений.

 

вариант задания	условие задачи
	Y=a+x(b+x(c+dx))

Задание 3. Выполнить математическую постановку задачи. По разработанному алгоритму составить и отладить программу на языке VBA и выполнить по ней расчеты на ПЭВМ. Используя функцию Round, округлить результаты вычислений.

Варианты задания 3

1. Вычислить уровень выполнения плана розничного товарооборота

, где F - фактический розничный товарооборот,

T - план розничного товарооборота.

2. Рассчитать степень новизны изделия

, где M - сумма высших рангов новизны изделия,

K - число баллов, характеризующих новизну анализируемого из
делия.

3. Рассчитать эстетический показатель качества товаров

, где R - значение обобщенного эстетического показателя,

N - число экспертов.

4. Вычислить коэффициент стабильности ассортимента товаров

, где N - количество проверок,

K1 - количество разновидностей товаров в момент проверки,

K2 - количество разновидностей товаров, предусмотренных ас
сортиментным минимумом.

5. Вычислить номинальную цену акции

, где Рn – номинальная цена акции,

Сар – уставный капитал акционерного общества,

М – число выпущенных акций.

6. Определить котировку акции на вторичном рынке ценных бумаг

,где К – курс акции,

Р_r – рыночная цена акции,

P_n – номинальная цена акций.

7. Рассчитать конечную сумму по погашению долга с процентами:

S = P * (1 + n * i), где S – наращенная сумма долга,

Р – первоначальная сумма ссуды,

n – срок кредита,

i – процентная ставка.

8. Вычислить величину разового погасительного платежа.

, где R – величина разового погасительного платежа,

S – наращенная сумма долга,

m – число платежей в год,

n – срок кредита.

9. Найти балансовую прибыль предприятия

ПБ = П + ПП +ПВ, где ПБ – прибыль балансовая,

П – прибыль от реализации,

ПП– прибыль от прочей реализации,

ПВ – прибыль от внереализационных доходов.

10. Рассчитать долю населения трудоспособного возраста в общей численности населения.

D = TH / H, где D – долю населения трудоспособного возраста,

ТН – трудовое население,

Н – все население.

 

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

Тема: Разработка программ разветвленной структуры в среде VBA

Цель работы:

- Применить умения при составлении алгоритма решения задачи в виде блок-схемы.

- Освоить приемы программирования разветвлений.

- Получить навыки составления программ разветвленной структуры.

 

Ход работы: