VBA в Microsoft Word. Использование форм

Практическая работа

Тема: Разработка программ с использованием математических процедур и функций (линейные программы)

Цель: приобрести навыки программирования с использованием встроенных функций ввода/вывода языка Visual Basic for Application. Осуществить вывод полученных результатов, используя  элемент управления текстовое поле (TextBox).

Задание. Найти значение функции:  y=sin5x+cos3x   при любом заданном х.

Содержание занятия:

    Откройте приложение MS Word.

    Выполните команду Разработчик -  Visual Basic или нажмите <Alt+F11>.

    Добавьте форму (команда Insertà UserForm)

    Для изменения размеров формы используйте указатель мыши помещённый в правый нижний угол окна Формы(UserForm)

    Разработайте пользовательский интерфейс, расположив на форме с помощью панели инструментов управления (Toolbox), следующие объекты управления: Label (Метка), TextBox (Текстовое поле), CommandButton (Командная кнопка).

    В окне Properties (Свойства) для каждого объекта управления установить свойства, приведённые в таблице 1.

Таблица 1.

Элемент управления	Свойства	Значения
UserForm	Caption	Задание 2
Label1	Caption	Вычисление значения функции y=sin5x+cos3x
Label2	Caption	X=
Label3	Caption	Y=
TextBox1	Name	TextBox1
TextBox2	Name	TextBox2
CommadButton1	Name	cmdRun
	Caption	Вычислить
CommadButton2	Name	cmdClear
	Caption	Очистка

    Для перехода в окно программирования нажмите правую кнопку мыши на объекте CommandButton и в появившимся контекстом меню выбрать команду View Code или двойной щелчок мыши.

    Между строками «Private Sub cmdRun_Click()» и «End Sub» введите следующий код программы:

Private Sub cmdRun_Click()

Dim X As Single

Dim Y As Single

X = Val(TextBox1.Text)

Y = sin(5*x)+cos(3*x)

TextBox2=Y

End Sub

    Примерный интерфейс программы и контрольные значения:

    Для очистки текстовых полей формы между строками «Private Sub cmdClear_Click()» и «End Sub» введите следующий код программы:

TextBox1 = ""

TextBox2 = ""

Напишите программу, которая бы вычисляла значение функции z=2x+3,5y²

Создайте в сетевой папке вашей группы свою папку под вашей фамилией и сохраните файл под именем «Функция2»