VBA для Microsoft Word (линейные программы)

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

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

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

Задание. Найти значение функции:  S=1/2*a*b при любом заданном х.

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

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

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

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

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

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

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

Таблица 1.

Элемент управления	Свойства	Значения
UserForm	Caption	Задание 1
Label1	Caption	Вычисление значения функции S=1/2*а*в
Label2	Caption	Ведите А
Label3	Caption	Ведите В
Label4	Caption	Результат:S=
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 a, b, S As Single

a = Val(TextBox1.Text)

b = Val(TextBox2.Text)

S = 1 / 2 * a * b

Label4 = "Результат:S=" & S

End Sub

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

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

TextBox1 = ""

TextBox2 = ""

Label4 = ""

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

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