Пример 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