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

Результат расчета

Не нашли, что искали? Воспользуйтесь поиском: