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

Автор работы: Пользователь скрыл имя, 28 Марта 2013 в 07:29, реферат

Краткое описание

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

Содержание

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

Прикрепленные файлы: 1 файл

информатика.docx

— 120.47 Кб (Скачать документ)

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

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

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

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

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

 

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

 

 

 

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

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

 

Тема: «Разработка программ в среде 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

 

  1. разработка программ разветвленной структуры в среде 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

 

  1. разработка программ циклической структуры в среде 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


Информация о работе Разработка программ в среде VBA