Методические указания по выполнению решения задач в среде программирования 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__