Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
2.1.С использованием USER FORM решим задачу.
Найти сумму а + в = с
Порядок выполнения работы:
1. Выполнить команду СЕРВИС /МАКРОС/РЕДАКТОР VBA
2. Выполнить команду ВСТАВКА/USER FORM
3. Поместить на форму элементы, требуемые для решения задачи, с панели элементов, и расположить их нужным образом.
Изменить свойства объектов на форме c помощью окна свойств.
Свойство | Значение |
Label1.Caption | A |
Label2.Caption | В |
Label3.Caption | С |
СоmmandButton1 | Результат |
CheckBox1.Caption | Очистка окон |
Для всех объектов свойство .BackColor | По своему вкусу выбрать цвет Из палитры цветов |
Для Label1, Label2,Label3 Свойство Font | В диалоговом окне “Шрифт”, которое появится после щелчка по Кнопке с изображением трех маленьких точек, расположенной напротив свойства Font в окне свойств, выбрать размер 16 |
Написать программный код. Для этого рекомендуется выполнить двойной щелчок по кнопке результат и перейти в окно программы, где набрать текст процедуры обработки события Click() для кнопки и для флажка(CheckBox1):
Private Sub CheckBox1_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox3.Visible = False
TextBox1.SetFocus
CheckBox1.Value = False
End Sub
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
Пояснения к программе:
1) Dim а As Integer
Эта инструкция описывает переменные как Integer — целые числа от -32768 и до 32767. При попытке присвоить а число, выходящее за пределы этого диапазона, возникает ошибка. При присваивании а дробного числа, выполняется округление.
Инструкция Dim - Описывает переменные и выделяет для них память.
2) CInt - функция преобразования типов данных (преобразовывает выражение в скобках к типу Integer).
Синтаксис CInt(выражение)
3) c=a+b
Оператор присваивания (=)-вычисляется значение выражения, стоящего справа от знака присваивания, и присваивается переменной, стоящей слева от знака присваивания.
4) MsgBox "результат смотри в TextBox3"
Появляется на экране окно сообщений MsgBox, в котором отображается сообщение, записанное в кавычках, и выполнение программы останавливается до тех пор пока не будет нажата кнопка "OK".
5) TextBox3.Text = c
Результат выполнения программы (с) выводится на форму в TextBox3
6) TextBox1.Text = "", TextBox2.Text = "", TextBox3.Text = ""
Производится очистка полей TextBox1, TextBox2, TextBox3.
7) TextBox1.SetFocus
Устанавливается фокус (курсор) в TextBox1.
8) CheckBox1.Value = False
Исчезает галочка у флажка CheckBox1.
Дата публикования: 2015-10-09; Прочитано: 195 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!