Задания для самостоятельного выполнения

3.2 Пример выполнения задания

 

 Пример 1

Найти сумму а + в = с.

Порядок выполнения работы:

1. Запустить редактор Visual Basic одним из следующих способов:

 • на вкладке Разработчик в группе Код нажмите кнопку Visual Basic.

• используйте сочетание клавиш ALT + F11.

2. Выполнить команду Вставка (Insert) ® UserForm

3. Поместить на форму элементы, требуемые для решения задачи, с панели элементов, и расположить их нужным образом, как показано на рисунке 13.

 

Рисунок 13 – Вид пользовательской формы

 

4. Изменить свойства объектов (таблица15) на форме c помощью окна свойств. Вид пользовательской формы после назначения свойств представлен на рисунке 14.

 

 

Таблица 15 – Свойства объектов

Свойство

Значение

Label1.Caption

a

Label2.Caption

в

Label3.Caption

с

СоmmandButton1.Caption

результат

CheckBox1.Caption

Очистка окон

Для всех объектов свойство

            .BackColor

По своему вкусу выбрать цвет из палитры цветов

 Для Label1, Label2 ,Label3

свойство 

             .Font

 

В диалоговом окне “Шрифт”, которое появится после щелчка по Кнопке с изображением трех маленьких точек, расположенной напротив свойства Font в окне свойств, выбрать размер  16

 

 

 

Рисунок 14 – Вид пользовательской формы после назначения свойств

 

5. Написать программный код. Для этого рекомендуется выполнить двойной щелчок по кнопке результат и перейти в окно программы, где набрать текст процедуры обработки события Click() для кнопки CommandButton1:

Private Sub CommandButton1_Click()

Dim a As Integer

Dim b As Integer

Dim c As Integer

a = CInt(TextBox1.Text)

b = CInt(TextBox2.Text)

c = a + b

MsgBox "результат смотри в TextBox3"

TextBox3.Visible = True

TextBox3.Text = c

End Sub

6. Двойной щелчок по элементу управления CheckBox1 вызовет процедуру обработки события Click(), где необходимо написать программный код для очистки полей TextBox:

Private Sub CheckBox1_Click()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox3.Visible = False

TextBox1.SetFocus

CheckBox1.Value = False

End Sub

 

Пример 2

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

Порядок выполнения работы:

1. Запустите редактора Visual Basic одним из следующих способов:

 • на вкладке Разработчик в группе Код нажмите кнопку Visual Basic.

 • используйте сочетание клавиш ALT + F11.

2. Выполнить команду Вставка (Insert) ® UserForm

3. Поместить на форму элементы, требуемые для решения задачи, с панели элементов, и расположить их нужным образом, как показано на рисунке 15.

 

 

Рисунок 15 – Вид пользовательской формы

7. Изменить свойства объектов (таблица16) на форме c помощью окна свойств. Вид пользовательской формы после назначения свойств представлен на рисунке 16.

 

Таблица 16 – Свойства объектов

Свойство

Значение

Label1.Caption

a

Label2.Caption

в

Label3.Caption

с

СоmmandButton1.Caption

Расчет

OptioButton1.Caption

Сложение

OptioButton2.Caption

Вычитание

Для всех объектов свойство

            .BackColor

По своему вкусу выбрать цвет из палитры цветов

Для Label1, Label2 ,Label3

свойство 

             .Font

 

В диалоговом окне “Шрифт”, которое появится после щелчка по Кнопке с изображением трех маленьких точек, расположенной напротив свойства Font в окне свойств, выбрать размер 16

 

 

 

Рисунок 16 – Вид пользовательской формы после назначения свойств

 

8. Написать программный код. Для этого рекомендуется выполнить двойной щелчок по кнопке Расчет и перейти в окно программы, где набрать текст процедуры обработки события Click() для кнопки CommandButton1:

Private Sub CommandButton1_Click()

Dim a As Integer, b As Integer, c As Integer

a = TextBox1.Value

b = TextBox2.Value

If OptionButton1.Value = True Then

c = a + b

End If

If OptionButton2.Value = True Then

c = a - b

End If

TextBox3.Value = c

End Sub

 

 

Вариант 1

Разработать пользовательскую форму для вычисления длины гипотенузы по заданным длинам катетов.

Вариант 2

Разработать пользовательскую форму для нахождения площади грани и объёма куба по заданной стороне.

Вариант 3

Разработать пользовательскую форму, в которой запрашивается радиус круга, рассчитывается его площадь.

Вариант 4

Разработать пользовательскую форму, в которой по знаку арифметической операции (+, -, ∙, :, =) выводится ее название.

Вариант 5

Разработать пользовательскую форму определяющую четность или нечетность введенного числа.

Вариант 6

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

Вариант 7

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

Вариант 8

Разработать пользовательскую форму, в которой можно определить принадлежит ли точка М (х, у) кругу с центром в начале координат и радиусом R, вводимым с формы.

 

 

Вариант 9

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

Вариант 10

Ввести число Х и определить, делится ли оно на 2, используя  пользовательскую форму.

Вариант 11

Разработать пользовательскую форму для вычисления

Вариант 12

Разработать пользовательскую форму для вычисления значения функции Z= f (T,P), если

Вариант 13

Разработать пользовательскую форму для расчета длины окружности или площади круга по введенному радиусу.

Вариант 14

Разработать пользовательскую форму для определения корней квадратного уравнения по введенным коэффициентам.

Вариант 15

Разработать пользовательскую форму для определения времени нахождения в пути пешехода, велосипедиста или автомобиля для прохождения заданного расстояния. Скоростью задаться самостоятельно.

Вариант 16

Разработать пользовательскую форму для вычисления значения функции по введенным аргументам

Вариант 17

Разработать пользовательскую форму для вычисления значения функции по введенным аргументам

Вариант 18

Разработать пользовательскую форму для нахождения периметра или площади  прямоугольника по заданным сторонам.

 

Вариант 19

Разработать пользовательскую форму для вычисления значения функции по введенным аргументам

Вариант 20

Разработать пользовательскую форму для вычисления

 

Вариант 21

Разработать пользовательскую форму для вычисления

.

Вариант 22

Разработать пользовательскую форму для вычисления

Вариант 23

Разработать пользовательскую форму для перевода расстояния, заданного в метрах в километрах, милях, футах или ярдах на выбор пользователя (1 миля=1,609 километра, 1 метр=1,094 ярда, 1 метр=3,281 фута).

Вариант 24

Разработать пользовательскую форму для вычисления произведения или суммы трех введенных чисел.

Вариант 25

Разработать пользовательскую форму для перевода объема, заданного в литрах в объем в пинтах, галлонах, бушелях и квартах (английские меры объема жидких и сыпучих тел) на выбор пользователя (1 литр=1,706 пинты, 1 литр=0,220 галлона, 1 бушель=36,35 литра, 1 кварта=1,136 литра).

 

Список литературы

 

1. Хорев П. Б. Объектно-ориентированное программирование : учеб. пособие / П. Б. Хорев. - 4-е изд., стер. - М. : Академия, 2012. - 448с.

2. Нагина Е.К., Ищенко В.А. Visual Basic for Applications. Практика: Учебно-методическое пособие по информатике для вузов. - Воронеж: Изд-во ВГУ, 2015. - 88 с.

3. Глушаков, С.В.; Сурядный, А.С. Microsoft Excel 2007. Краткий курс; АСТ, АСТ Москва, Харвест, 2008. - 352 c.