Программа
Результат расчета
Программа
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.