2. Разработка программ и алгоритмов разветвляющейся структуры

1. С использованием рабочего листа ms Excel;

2. С использованием форм пользователя в редакторе Visual Basic. Задание 2

Выполнить табулирование функции на отрезке [-4;4] с шагом ∆x=0,5, при a=4 и b=6, используя Редактор VB. Построить график функции y(x) по полученным результатам, разместив его на новом рабочем листе.

Составить блок-схему для решения задачи по формуле

Блок – схема

1. Создание процедуры подпрограммы с использованием ввода исходных данных и вывода результатов на рабочий лист ms Excel Ход выполнения задания 2:

1. Создать документ Excel в папке своей группы под своей фамилией.

2. Оформить таблицу на рабочем листе MS Excel, согласно образцу:

3. Перейти в окно Редактора VB, командой СервисМакросРедактор Visual Basic.

4. .Создать модуль, используя команду InsertModule .

5. Создать процедуру Пример_2, имеющую тип Sub.

6. Ввести в окне редактирования кода программу

Public Sub Пример_2()

Dim a, x0, xk, dx, x, y As Single

Const Pi As Single = 3.14159

a = Cells(2, 1).Value

b = Cells(2, 2).Value

x0 = Cells(2, 3).Value

xk = Cells(2, 4).Value

dx = Cells(2, 5).Value

x = x0

i = 5

10 If x <= 2 Then y = x ^ 2 - a Else y = b - 2 * x

Cells(i, 1).Value = x

Cells(i, 2).Value = y

i = i + 1

x = x + dx

If x <= xk Then GoTo 10

End Sub

7. Запустить программу на выполнение, используя команду RunRun Sub/UserForm или кнопку на панели инструментов .

8. Перейдите на рабочий лист MS Excel.

10. Проверить результат выполнения программы.

11. Сохранить документ и закрыть программу MS Excel.

2. Создание формы пользователя в редакторе Visual Basic Ход выполнения задания:

1. Создать документ MS Excel в папке своей группы под своей фамилией.

2. Перейти в окно Редактора VB, командой Сервис  Макрос  Редактор Visual Basic.

3. .Создать модуль, используя команду InsertModule .

4. Записать в модуль процедуру Zadanie2:

Public Sub Zadanie2()

UserForm1.Show

End Sub.

5. Добавить в проект форму, выполнив команду меню InsertUserForm.

6. Разместить в окне редактирования формы управляющие элементы (6 элементов Надпись (Label), 5 элементов Поле (TextBox) и 2 элемента Кнопка (CommandButton)), как показано на рис. 14.

Рис. 14. Диалоговое окно для табулирования функции

7. Установить свойства элементов управления в соответствии с таблицей 1 приложения 2, используя окно Properties (Свойства), нажав кнопку .

Приложение 2

Элемент	Свойство	Значение свойства	Обрабатываемое событие
UserForm1	Caption StartUpPosition	Табулирование функции 2-CenterScreen;	нет
	на вкладке Alphabetic:
Label1	AutoSize Caption Font(шрифт)	True (по содержимому) Программу составил студент Ф.И.О № группы.	нет
Label2	Caption Font	Начальное значение x шрифт: Times New Roman; начертание: жирный, размер: 18;	нет
Label3	Caption Font	Конечное значение x шрифт: Times New Roman; начертание: жирный, размер: 18;	нет
Label4	Caption Font	Шаг шрифт: Times New Roman; начертание: жирный, размер: 18;	нет
Label5	Caption Font	Значение а шрифт: Times New Roman; начертание: жирный, размер: 18;	нет
Label6	Caption Font Left	Значение b шрифт: Times New Roman; начертание: жирный, размер: 18;	нет
TextBox1	AutoSize Font	True шрифт: Times New Roman; начертание: жирный, размер: 14;	нет
TextBox2	AutoSize Font	True шрифт: Times New Roman; начертание: жирный, размер: 14;	нет
TextBox3	AutoSize Font	True шрифт: Times New Roman; начертание: жирный, размер: 14;	нет
TextBox4	AutoSize Font	True шрифт: Times New Roman; начертание: жирный, размер: 14;	нет
TextBox5	AutoSize Font	True шрифт: Times New Roman; начертание: жирный, размер: 14;	нет
CommandButton1	Caption Font	Вычислить шрифт: Times New Roman; начертание: жирный, размер: 18;	Выполняет вычисления и выводит результаты значений на рабочий лист
CommandButton2	Caption Font	Вычислить шрифт: Times New Roman; начертание: жирный, размер: 18;	Закрывает форму

8. Выровнять элементы управления по ширине и высоте, используя соответственно команды FormatMake Same SizeWidth и FormatMake Same SizeHeight. Для выбора элементов управления удерживать клавишу Shift.

9. Выровнять элементы управления Надпись по левому краю, используя команду FormatAlignLefts, элементы управления Поле по правому краю – FormatAlignRights.

10. Изменить свойство события Click для командной кнопки Вычислить.

Private Sub CommandButton1_Click()

Dim x, y As Single

xn = TextBox1.Text

xk = TextBox2.Text

dx = TextBox3.Text

a = TextBox4.Text

b = TextBox5.Text

x = Val(xn)

Worksheets(1).Cells(1, 1).Value = "x"

Worksheets(1).Cells(1, 2).Value = "y"

Worksheets(1).Cells(1, 3).Value = "a"

Worksheets(1).Cells(1, 4).Value = "b"

Worksheets(1).Cells(2, 3).Value = a

Worksheets(1).Cells(2, 4).Value = b

Worksheets(1).Cells(1, 5).Value = "xn"

Worksheets(1).Cells(1, 6).Value = "xk"

Worksheets(1).Cells(1, 7).Value = "dx"

Worksheets(1).Cells(2, 5).Value = xn

Worksheets(1).Cells(2, 6).Value = xk

Worksheets(1).Cells(2, 7).Value = dx

i = 2

20 Worksheets(1).Cells(i, 1).Value = x

If x <= 2 Then y = x ^ 2 - a Else y = b - 2 * x

Worksheets(1).Cells(i, 2).Value = y

i = i + 1

x = x + Val(dx)

If x <= Val(xk) Then GoTo 20

End Sub

11. Изменить свойство события Click для командной кнопки Выход.

Private Sub CommandButton2_Click()

End

End Sub