Файл: Е. А. Рябухина, О. А. Гущина, Д. А. Губанов, Д. В. Емельянов.doc
ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 01.12.2023
Просмотров: 108
Скачиваний: 1
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
Times New Roman, курсив, размер 10.
Порядок работы с формой:
– надпись (Label), определяющую текст вопроса;
– элемент ComboBox, определяющий набор значений, из которого выбирается единственно правильный результат;
– текстовое поле, в котором выводится результат;
– две кнопки, одна из которых производит вычисления, а вторая очищает все текстовые поля.
4) Изменяем текст надписи в свойстве Caption на текст вопроса. Шрифт надписей изменяем с помощью свойства Font. Для этого щелкаем мышью на кнопке с многоточием и в открывшемся окне выбираем тип шрифта – Times New Roman, эффект – жирный курсив, размер шрифта – 10, цвет фона надписей выбираем с помощью свойства BackColor в пункте Palette. Устанавливаем рамки надписей с помощью свойства BorderStyle со значением 1.
5) Тексты кнопок CommandButton с помощью свойства Caption заменяем соответственно на «Выполнить» и «Очистить».
6) Щелкаем на кнопках Выполнить и Очистить и вводим текст программы:
Private SUB CommandButton1_Click()
If ComboBox1.Value = "Китай"
Then Label1.Caption = "Правильно"
Else Label1.Caption = "He правильно"
End SUB
Private SUB CommandButton2_Click()
UserForm1.Hide
ComboBox1.Value = ""
End SUB
Private SUB UserForm_INITIALIZE()
ComboBox1.List = Array("Китай", "Индия", "Бразилия", "Египет")
ListIndex = -1
End SUB
Private SUB UserForm_Click()
End SUB
ЛАБОРАТОРНАЯ РАБОТА №12.
«Программирование с использованием подпрограмм»
Цель работы: изучение методов программирования с использованием подпрограмм.
Задания:
Даны матрицы А, В и С размерностью 3×3:
Задание 1: с помощью подпрограммы-функции вычислить величину, указанную в варианте (табл. 14).
Таблица 14
Задание 2: с помощью подпрограммы-процедуры сформировать новую матрицу, согласно формулам из варианта. К исходным и новой матрицам применить эффекты оформления согласно варианту (табл. 15).
Таблица 15
Задание 3: оформить результаты предыдущего задания, используя шрифты, указанные в варианте.
Порядок работы с формой:
-
Перейти в редактор VBA и в пункте Insert выбрать вариант UserForm. На экране появится форма. -
Свойство Caption изменяем на Задание1, цвет фона устанавливаем в свойстве BackColor в пункте Palette (на рис.16 цвет установлен бежевый). -
С помощью панели инструментов (ToolBox) помещаем на форму следующие объекты:
– надпись (Label), определяющую текст вопроса;
– элемент ComboBox, определяющий набор значений, из которого выбирается единственно правильный результат;
– текстовое поле, в котором выводится результат;
– две кнопки, одна из которых производит вычисления, а вторая очищает все текстовые поля.
4) Изменяем текст надписи в свойстве Caption на текст вопроса. Шрифт надписей изменяем с помощью свойства Font. Для этого щелкаем мышью на кнопке с многоточием и в открывшемся окне выбираем тип шрифта – Times New Roman, эффект – жирный курсив, размер шрифта – 10, цвет фона надписей выбираем с помощью свойства BackColor в пункте Palette. Устанавливаем рамки надписей с помощью свойства BorderStyle со значением 1.
5) Тексты кнопок CommandButton с помощью свойства Caption заменяем соответственно на «Выполнить» и «Очистить».
6) Щелкаем на кнопках Выполнить и Очистить и вводим текст программы:
Private SUB CommandButton1_Click()
If ComboBox1.Value = "Китай"
Then Label1.Caption = "Правильно"
Else Label1.Caption = "He правильно"
End SUB
Private SUB CommandButton2_Click()
UserForm1.Hide
ComboBox1.Value = ""
End SUB
Private SUB UserForm_INITIALIZE()
ComboBox1.List = Array("Китай", "Индия", "Бразилия", "Египет")
ListIndex = -1
End SUB
Private SUB UserForm_Click()
End SUB
ЛАБОРАТОРНАЯ РАБОТА №12.
«Программирование с использованием подпрограмм»
Цель работы: изучение методов программирования с использованием подпрограмм.
Задания:
Даны матрицы А, В и С размерностью 3×3:
Задание 1: с помощью подпрограммы-функции вычислить величину, указанную в варианте (табл. 14).
Таблица 14
| Вар-т | Функция |
| 1 |  , где  |
| 2 |  , где  |
| 3 |  |
| 4 |  |
| 5 |  , где  – среднее арифметическое  ,  – среднее арифметическое  ,  – среднее арифметическое |
| 6 |  ; нулевые элементы исключить из вычислений |
| 7 |  |
| 8 |  где  |
| 9 |  , где – среднее арифметическое  , – среднее арифметическое  , – среднее арифметическое |
| 10 |  , где  |
Задание 2: с помощью подпрограммы-процедуры сформировать новую матрицу, согласно формулам из варианта. К исходным и новой матрицам применить эффекты оформления согласно варианту (табл. 15).
Таблица 15
| Вар-т | Результат |
| 1 | D=AB+CA+BC |
| 2 | В матрице А заменить  на сумму 2-й строки, в матрице В заменить  на сумму 3-й строки, в матрице С заменить  на сумму 1-й строки |
| 3 | D=2A-3B+5C |
| 4 | В матрице А разделить  на  , в матрице В разделить  на , в матрице С разделить  на  |
| 5 | D=(A+C)(B+A)(C+B) |
| 6 | В матрице А разделить на max элемент 1-й строки; в матрице В разделить  на max элемент 3-й строки; в матрице С разделить на max элемент 2-й строки |
| 7 | D=ATBTCT |
| 8 | В матрице А поменять местами 1-ю и третью строки, в матрице В – 2-ю и 3-ю, в матрице С – 1-ю и вторую |
| 9 | D=  ; отрицательные элементы заменять их модулями |
| 10 | В матрице А разделить элементы 1-й строки на сумму третьей строки, в матрице В разделить элементы 3-й на сумму второй, в матрице С разделить элементы 2-й строки на сумму 1-й |
Задание 3: оформить результаты предыдущего задания, используя шрифты, указанные в варианте.
| Вариант 1 | | Вариант 2 | ||
| A | Algerian | | A | Book Antiqua |
| B | Centaur | | B | Footlight MT Light |
| C | Franklin Gothic Medium | | C | Kunstler Script |
| D | Impact | | D | Ravie |
| Вариант 3 | | Вариант 4 | ||
| A | Mistral | | A | Broadway |
| B | Old English Text MT | | B | Matura MT Script Capitals |
| C | Freestyle script | | C | Cooper Black |
| D | MS SerIf | | D | VlaDimir Script |
| Вариант 5 | | Вариант 6 | ||
| A | Gautami | | A | Jokerman |
| B | Vivaldi | | B | Modern No.20 |
| C | Arial Black | | C | Lucida Calligraphy |
| D | Snap ITS | | D | Showcard Gothic |
| Вариант 7 | | Вариант 8 | ||
| A | Lucida Sans Unicode | | A | Arial Black |
| B | Fixedsys | | B | Kristen ITS |
| C | Magneto | | C | Chiller |
| D | WST_Czec VlaDimir Script | | D | Wide Latin |
| Вариант 9 | | Вариант 10 | ||
| A | MS SerIf | | A | Comic Sans MS |
| B | Century | | B | Kristen ITS |
| C | Britannic Bold | | C | Algerian |
| D | System | | D | Viner Hand ITS |
| Вариант 11 | | Вариант 12 | ||
| A | Algerian | | A | Jokerman |
| B | Broadway | | B | Lucida Sans Unicode |
| C | Comic Sans MS | | C | MS SerIf |
| D | Freestyle script | | D | Snap ITS |
| Вариант 13 | | Вариант 14 | ||
| A | VlaDimir Script | | A | Jokerman |
| B | Britannic Bold | | B | Mistral |
| C | Chiller | | C | Stencil |
| D | Franklin Gothic Medium | | D | Impact |
| Вариант 15 | | Вариант 16 | ||
| A | WST_Czec | | A | Fixedsys |
| B | Broadway | | B | Gautami |
| C | Comic Sans MS | | C | Juice ITS |
| D | Century | | D | Lucida Sans Unicode |
| Вариант 17 | | Вариант 18 | ||
| A | Modern No.20 | | A | Old English Text MT |
| B | Viner Hand ITS | | B | Kristen ITS |
| C | Footlight MT Light | | C | Brush Sript MT |
| D | Showcard Gothic | | D | Snap ITS |
| Вариант 19 | | Вариант 20 | ||
| A | Centaur | | A | Magneto |
| B | Stencil | | B | Haettenschweiler |
| C | Fixedsys | | C | Viner Hand ITS |
| D | Lucida Calligraphy | | D | Harlow Solid Italic |