способ (без использования формы пользователя UserForm, но с размещением данных на листе Лист1 Книги)

 

1. Запускаем Excel

2. Вводим исходное значение Х в клетку A2 на листе1 и определяем клетку B2 для вывода расчетного значения S на листе1 (рис.14):

 

 

Рис.14

3. Включаем пункты меню “Сервис, Макрос, Макросы…»

4. Открывается окно «Макрос», в которое водим название макроса «LAB5в» и нажимаем кнопку создать (рис. 15):

 

Рис.15

 

5. Открывается окно модуля «Книга1 – Module1 (Code)» в окне редактора Visual Basic (рис.16):

 

Рис.16

 

6. В окно модуля вводим следующий код:

 

Dim N As Integer

X = Range("A2")

E = 0.0001

N = 0

T = 1

S = 0

While Abs(T) >= E

S = S + T

T = T * (-X ^ 2) / ((2 * N + 2) * (2 * N + 1))

N = N + 1

Wend

Range("B2") = S

 

Здесь:

X = Range("A2"); – ввод в программу исходного значения Х из клетки A2

Range("B2") = S – вывод расчетного значения S в клетку B2

Получаем (рис.17):

 

 

Рис.17

 

7. Сохраняем полученную книгу под именем «Книга2»

8. Для запуска программы открываем созданную книгу и включаем пункты меню «Сервис, макросы» и в окне макросов нажимаем кнопку «Выполнить» (рис.18):

 

 

 

Рис.18

 

9. Получаем (рис.19):

 

 

 

 

Рис.19

 

10. Блок-схема такая же, как в 1 способе