 |
Программирование и решение прикладных задач на персональном компьютере в среде VBA
|
|
|
|
Разработать для каждой задачи алгоритм, представить его в виде блок-схемы, написать программу в среде VBA.
Задача 1
Вычислить функцию при заданном значении аргумента х. Способ выполнения – процедура-функция. Данные для задачи представлены в таблице 1.
Задача 2
Выполнить табулирование функции y=f(x) на отрезке хÎ[х0;хк] с шагом Dх. Способ выполнения – процедура-подпрограмма. Предусмотреть ввод исходных данных с рабочего листа MS Excel и вывод таблицы аргумента х и функции у на рабочий лист MS Excel. Данные для задачи представлены в таблицах 2, 3.
Задача 3
Вычислить сумму всех тех членов ряда, которые по величине больше заданного числа e и определить число членов ряда, соответствующих этому условию. Способ выполнения – процедура-подпрограмма. Предусмотреть ввод данных через диалоговое окно, вывод результатов на рабочий лист MS Excel. Данные для задачи представлены в таблице 4.
Задача 4
Выполнить действия с массивами. Способ выполнения – процедура-подпрограмма. Предусмотреть ввод исходных данных с рабочего листа MS Excel и вывод получаемых результатов на рабочий лист MS Excel. Данные для задачи представлены в таблицах 5, 6.
Методические указания по выполнению решения задач в среде программирования VBA
Задача 1
При разработке алгоритма, его нужно представить в виде блок-схемы и создать процедуру-функцию для вычисления функции
при х = 0,2.
Блок-схема
 |
Ход выполнения задания:
1. Запустить программу MS Excel.
2. Загрузить редактор VB (Сервис – Макрос – Редактор Visual Basic).
3. Создать модуль командой Insert – Module.
4. Создать процедуру командой Insert – Procudure, имеющую тип Function, область видимости Public.
|
|
|
Программа
Public Function y(x)
y = 9.2 * Cos(x ^ 2) - Abs(Sin(x / 1.1))
End Function
5. Перейти на рабочий лист MS Excel.
6. Ввести на рабочий лист исходные данные.
7. Вызвать созданную функцию командой Вставка – Функция – категория Определенные пользователем.
Результат расчета
Задача 2
При разработке алгоритма, его нужно представить в виде блок-схемы и написать программу для табулирования функции
на участке xÎ[0;10] с шагом Dx=1 при а=1; b=2.
Ввод и вывод данных предусмотреть с рабочего листа MS Excel.
Блок – схема
Ход выполнения задания:
1. Запустить программу MS Excel.
2. Ввести на рабочий лист исходные данные.
3. Загрузить редактор VB.
4. Вставить модуль командой Insert – Module.
5. Создать процедуру с программным кодом командой Insert – Procedure, имеющую тип Sub, область видимости Public.
Программа
Public Sub задача2()
Dim a As Single, b As Single, x0 As Single, xk As Single, dx As Single
Dim x As Single, y As Single
a = Cells(3, 1).Value
b = Cells(3, 2).Value
x0 = Cells(3, 3).Value
xk = Cells(3, 4).Value
dx = Cells(3, 5).Value
x = x0
i = 5
2 If x >= 6 Then y = a * b Else y = b - a * x ^ 2
Cells(i + 1, 1).Value = x
Cells(i + 1, 2).Value = y
i = i + 1
x = x + dx
If x <= xk Then GoTo 2
End Sub
Результат расчета
Задача 3
При вычислении суммы всех тех членов ряда 
, которые по величине меньше заданного числа e=10. Определить число членов ряда, соответствующих этому условию. Предусмотреть ввод данных через диалоговое окно, вывод результатов на рабочий лист MS Excel.
Блок – схема
Ход выполнения задания:
1. Запустить программу MS Excel.
2. Загрузить редактор VB.
3. Вставить Модуль и Процедуру типа Sub.
4. Записать код программы.
Программа
Public Sub задача3()
Dim ds As Single, s As Single
Dim i As Integer
e = Val(InputBox("Введите значение e"))
s = 0
i=1
ds = i ^ 2
do while ds < e
s = s + ds
Cells(2, 2) = s
Cells(2, 1) = i
i=i+1
ds = i ^ 2
loop
End Sub
Результат расчета:
Сумма ряда S = 14 при i = 3
Задача 4
При разработке алгоритма его нужно представить в виде блок – схемы и написать программу для вычисления значения функции 
|
|
|
X = (-2.3, 4.5, 5.1, -1.2 4.9)
Y=(1.3,12.5,2.5,-14.2, -3.5)
Предусмотреть вывод промежуточных результатов на рабочий лист MS Excel.
Блок – схема
Ход выполнения задания:
1. Запустить программу MS Excel.
2. Ввести на рабочий лист исходные данные
3. Загрузить редактор VB.
4. Вставить модуль командой Insert – Module.
5. Создать процедуру с программным кодом командой Insert – Procedure, имеющую тип Sub, область видимости Public.
Программа
Public Sub задача4()
Dim x(1 To 5) As Single
Dim y(1 To 5) As Single
s1 = 0
s2 = 0
n = 2
For i = 1 To 5
x(i) = Cells(n, 1).Value
y(i) = Cells(n, 2).Value
n = n + 1
s1 = s1 + x(i) ^ 2 + y(i)
If x(i) > 0 And y(i) > 0 Then s2 = s2 + x(i) + y(i)
Next i
z = s1 / s2
Cells(2, 3).Value = z
End Sub
Результат расчета
Приложение 1
Образец оформления титульного листа контрольной работы
ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ
ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ
«ОМСКИЙ ГОСУДАРСТВЕННЫЙ АГРАРНЫЙ УНИВЕРСИТЕТ им. П.А. СТОЛЫПИНА»
(ФГБОУ ВПО Омский ГАУ)
Кафедра МЕНД
КОНТРОЛЬНАЯ РАБОТА
по ИНФОРМАТИКЕ
наименование дисциплины
-й семестр
Студентки заочной формы обучения____________________________
Ф.И.О., полностью __________________________________________
№ зачетной книжки _________________________ группа ________ о
Специальность______________________________________________
код и наименование
№ варианта_________________________________________________
Выполнил(а)_________________
подпись студента(ки)
Работа предъявлена на проверку «____»_________20__г.________________________
подпись преподавателя
Результаты проверки__________________________________________
Замечания, рекомендации_____________________________________
Проверил преподаватель «___»__________20__г.
Ф.И.О., подпись
Вторично предъявлена на проверку «___»_____________20 __г.
подпись преподавателя
Результаты проверки__________________________________________
Замечания___________________________________________________
Проверил преподаватель «___»________20__г. _________________
Ф.И.О., подпись
Работа принята (проведено собеседование) «___»___________20__г________________
подпись преподавателя
Омск 20__
|
|
|
