СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ

Благодаря готовым учебным материалам для работы в классе и дистанционно

Скидки до 50 % на комплекты
только до 10.07.2025

Готовые ключевые этапы урока всегда будут у вас под рукой

Организационный момент

Проверка знаний

Объяснение материала

Закрепление изученного

Итоги урока

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

Категория: Информатика

Нажмите, чтобы узнать подробности

Используя формы, можно достаточно полно изучить возможности работы со всеми типами данных и их взаимодействия с учетом того, что значения переменных будут определяться не программно, а вводом через текстовые поля формы, т. е. при непосредственной работе пользователя с программой.

Просмотр содержимого документа
«VBA в Microsoft Word. Использование форм»

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

Цель: приобрести навыки программирования с использованием встроенных функций ввода/вывода языка 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,5y2


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




Скачать

Рекомендуем курсы ПК и ППК для учителей

Вебинар для учителей

Свидетельство об участии БЕСПЛАТНО!