Разработка программ в среде VBA

Министерство образования и  науки РФ

Федеральное Государственное Бюджетное  образовательное учреждение

высшего профессионального образования

Российский Государственный Торгово-экономический  Университет

Кемеровский институт (филиал)  

 

Кафедра вычислительной техники и информационных технологий  

 

 

 

Контрольная работа

По дисциплине «Экономическая Информатика»  

 

Тема: «Разработка программ в среде VBA»  

 

 

  

 

 

 

Выполнил:

студент гр. Фкс 121

Сухоруков Вячеслав Евгеньевич

Вариант 17

Проверил:

доцент, Черкасов Виктор Савватьевич

 

 

 

 

 

Кемерово 2013

содержание

1. разработка программ линейной структуры в среде VBA 3

2. разработка программ разветвленной структуры в среде VBA 5

3. разработка программ циклической структуры в среде VBA 7

 

 

1. разработка программ линейной структуры в среде VBA

задание 1.   
Условие задачи:

 

a, b, c, x – простые переменные целого типа

a, b, с – это исходные данные

x – результат

Вычислительный процесс  линейный

Представим алгоритм решения  данного выражения в виде блок-схемы:

 

 

X = ((a^2*b^2)/c + a)/b

Конец

 

Вывод X

Ввод a, b, c

Начало

 

 

 

 

 

 

 

 

 

 

 

 

Программа VBA имеет вид:

Sub Вариант17()

Dim a, x As Single

Dim b, c As Single

a = InputBox("Введите число a", "окно ввода")

b = InputBox("Введите число b", "окно ввода")

c = InputBox("Введите число c", "окно ввода")

x = ((a ^ 2 * b ^ 2) / c + a) / b

Debug.Print "значение x = "; x

End Sub

 

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

задание 2. 

Условие задачи:

a, x, Y – простые переменные целого типа

a, x – это исходные данные

Y – результат

Вычислительный процесс  разветвляющий

Начало

Конец

Ъъ

 

 

Y = a - Abs(x)

Нет

Вывод Y

Y = Sin(x) / Cos(x) ^ 2

Y = 2 * Sin(x) ^ 3 / (1 + a ^ 2)

x=-a

Да

Нет

x<-a

Ввод a, x

Представим алгоритм решения данного  выражения в виде блок-схемы:

Да

 

Программа VBA имеет вид:

Sub Вариант17()

Dim a, x As Single

Dim Y As Single

a = InputBox("Введите число a", "Окно ввода")

x = InputBox("Введите число x", "Окно ввода")

If x < -a Then Y = 2 * Sin(x) ^ 3 / (1 + a ^ 2)

If x = -a Then

Y = Sin(x) / Cos(x) ^ 2

Else

Y = a - Abs(x)

End If

Debug.Print "значение Y = "; Y

End Sub

 

3. разработка программ циклической структуры в среде VBA

задание 3. 

Условие задачи:

Розничная цена на кондитерские изделия определяется по формуле: 

где Цо – оптовая цена, Нт.с. – торгово-сбытовая скидка (12%), Нн.об. –     ставка налога с оборота (10%).

Получить таблицу значений розничной цены в зависимости от оптовой, изменяющейся от 10 руб. до 160 руб. с шагом 2 руб.

Цо, Нтс, Цр, Нноб - простые переменные целого типа

Цо, Нтс, Цр, Нноб – исходные данные

Цр – результат

Начало

Представим алгоритм решения данного  выражения в виде блок-схемы:

Конец

Ъъ

 

 

Ввод Цр

Цо=10,160

Ввод Цо

Нтс = 12%

Нноб = 10%

Цр =Цо / (((100 - Нтс) / 100) * ((100 - Нноб) / 100))

 

Программа VBA имеет вид:

Sub Вариант17()

Dim Цо, Нтс As Single

Dim Цр, Нноб As Single

Цо = InputBox("Введите оптовую цену", "Окно ввода")

Цтс = 12

Нноб = 10

Debug.Print "Цо", " Цр"

For Цо = 10 To 160 Step 2

Цр = Цо / (((100 - Нтс) / 100) * ((100 - Нноб) / 100))

Debug.Print Round(Цо, 2), Round(Цр, 2)

Next Цо

End Sub