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.

• Для перехода в окно программирования нажмите правую кнопку мыши на объекте 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»