Лабораторная работа ИКТ. Лабораторная работа_№ 1_2020. Лабораторная работа 1 Загрузить ms word Открыть редактор vba
![]()
|
Лабораторная работа №1 Загрузить MS Word Открыть редактор VBA Вставить новую форму диалога и расположить на ней соответствующие элементы (Надпись и Кнопку). Вставить новую форму диалога и расположить на ней соответствующие элементы (Надпись и Кнопку). Изменить свойство Caption у всех элементов формы: UserForm2.Caption=Задание 1; Label1.Caption=Линейный алгоритм; CommandButton1.Caption=Вычисление Т.. Составить программу вычисления для заданных значений X, Y, Z арифметического выражения ![]() при x=14.26, y=-1.22, z=0.035 Вставить новую форму диалога и расположить на ней соответствующие элементы (Надпись и Кнопку). Изменить свойство Caption у всех элементов формы: UserForm3.Caption=Задание 2; Label1.Caption=Разветвляющийся алгоритм; CommandButton1.Caption=Вычисление Y. Написать программу для вычисления значения функции ![]() Вставить новую форму диалога и расположить на ней соответствующие элементы (Надпись и Кнопку). Изменить свойство Caption у всех элементов формы: UserForm4.Caption=Задание 3; Label1.Caption=Циклический алгоритм; CommandButton1.Caption=Вычисление суммы. Написать программу для решения следующей задачи. Ввести с клавиатуры N чисел. Найти сумму тех из них, которые принадлежат интервалу (2;9). Самостоятельная работа Используя редактор VBA написать программы для решения следующих задач: Даны катеты прямоугольного треугольника. Найти его гипотенузу и площадь. Даны действительные числа А и В. Если они оба неотрицательные, то заменить каждое из них его кубом, иначе отрицательные из них заменить их модулями. Ввести с клавиатуры и напечатать модули N чисел; если введено отрицательное число, напечатать его, затем ввод и печать прекратить. |