Основы программирования в среде Visual Basic for Application (Excel 2010)
Private Sub cmdUnit_Click()
MsgBox strWord1 &" "& strWord2
End Sub
8. Запустите программу. Нажмите кнопку Первое слово, чтобы вызвать диалоговое окно InputBox для ввода первого слова. Введите первое слово и нажмите ОК Затем нажмите кнопку Второе слово. Введите второе слово и нажмите ОК. А для получения сообщения нажмите кнопку Объединить.
Контрольное задание
Измените программу так, чтобы она выводила сообщение «Первое слово и Второе слово сидели на трубе». Первое слово и Второе слово являются: переменной частью сообщения и вводятся с помощью окна ввода.
Контрольные вопросы
1.Что такое область видимости переменных?
2.Приведите преимущества и недостатки глобальных и локальных переменных.
3.Что изменится, если описание переменных переместить из секции (General)(Declarations) формы в процедуру cmdUnit_Click()?
4.Что изменится, если в описании переменных ключевое слово Private заменить ключевым словом Dim?
5.Что изменится, если в описании переменных ключевое слово Private заменить ключевым словом Global?
6.Что означает оператор Option Explicit в секции (General)(Decla ration)?
Задание для закрепления знаний
Составьте программу для вычисления объема комнаты. Программа должна содержать четыре кнопки Длина (м), Ширина (м). Высота (м)), Вычислить объем. Нажатие на кнопку Длина(м) вызывает окно InputBox для ввода значения длины комнаты. Полученное значение отображается в окне-надписи, расположенном на форме и озаглавленном «Длина комнаты». Аналогично, «Объем» приводит к расчету объема комнаты, который показывается пользователю с помощью окна MsgBox. Программа также должна иметь кнопку «Выход» для ее завершения.
3.1. Условный оператор IF THEN
Основная цель задания
1.Изучить однострочный оператор If...Then, и многострочный оператор
If...Then...End If.
2.Познакомиться и изучить оператор If...Then...Else...End If.
Усков Ю.И., Катеринина С.Ю. |
31 |
каф. МиИТ, нояб.2015 |
Основы программирования в среде Visual Basic for Application (Excel 2010)
Краткая справка.
Классической конструкцией условного оператора является If...Then., ll конструкции действие (оператор или группа операторов) выполняется только при условии, когда содержащееся в конструкции логическое выражение имеет может использоваться в однострочном и многострочном виде.
Однострочный оператор используется, если для обработки логического выражения достаточно одной оператора.
Синтаксис однострочного оператора:
If Логическое выражение Then Оператор
Синтаксис многострочного оператора:
If Логическое выражение Then Группа операторов
End If
Конструкции If Then Else дает позволяет проводить обработку, как в случае истинности логического выражения, так и в случае, если оно ложно.
If Логическое выражение Then Группа операторов 1
Else
Группа операторов 2 End If
Информация о всех логических блоках приведена в Приложении 4.
Задание 3.1
Создайте программу, которая бы определяла по числу набранных баллов, поступил абитуриент в университет или нет. Внешний вид программы показан на рис. 3.1.
Технология выполнения задания
1.Выполните пункты 1…5 Задания 1.1
2.Задайте свойству Name формы имя frmZadanie3_1, а свойству Caption значение
Приемная комиссия
3.Создайте на форме два текстовых элемента и четыре элемента - надписи, расположив их, как показано на рис. 3.1. Два текстовых элемента будут использованы для ввода фамилии, имени, отчества абитуриента и количество набранных им баллов, одно поле надпись для вывода сообщения-резолюции. Три поля надписи ис-
пользуются для размещения поясняющих надписей.
4. Задайте свойству Name созданных текстовых элементов значения txtName и txtNum. Свойства Text задайте пустыми. Задайте размер шрифта 14, полужирный (свойство Font). Выберите синий цвет текста (свойство ForeColor= &H80000002&.
Рис. 3.1.
Усков Ю.И., Катеринина С.Ю. |
32 |
каф. МиИТ, нояб.2015 |
Основы программирования в среде Visual Basic for Application (Excel 2010)
5.3адайте для правого нижнего элемента-надписи, в которое должна выводится резолюция, следующее значение свойства Name: lblResol1. шрифта: 14, полужирный (свойство Font). Выберите черный цвет надписей (свойство ForeColor
=&H80000008&).
6.Создайте подписи над двумя текстовыми полями и над надписью (lblResol). Задайте значения свойство Caption для соответствующих элементов-надписей: "Фамилия, Имя, Отчество", "Число баллов", "Резолюция". согласно рис. 3.1.
7.Добавьте кнопку на данную форму. В окне свойств задайте свойству Caption кнопки значение &Прием, а у свойства Name измените значение на cmdPriem.
8.Дважды щелкните на кнопке Прием, чтобы открыть окно программы. Откорректируйте процедуру события Click кнопки:
Private Sub cmdPriem_Click() Dim intNum As Integer intNum = Val(txtNum.Text)
If intNum > 100 Then lblResol1.Caption = txtName.Text & " принят" End Sub
Здесь используется самый простой вариант оператора ветвления, (однострочный оператор If...Then), который проверяет только один вариант. Если число балов больше 100, то свойству Caption элемента lblResol задается текст, включающий имя абитуриента и слово "принят".
9.Запустите программу. Вводим фамилию, имя, число баллов и нажимаем кнопку Прием. Если число баллов больше 100, то в окне надписи со значением свойства Name= lblResol, расположенного ниже надписи Резолюция (со значением свойства Name= lblResol1), появляется соответствующее сообщение.
10.Усложним программу, заставив её выдавать сообщения при любом результате. Для этого откорректируем процедуру cmdPriem_Click()
Private Sub cmdPriem1_Click() Dim intNum As Integer
intNurn = Val(txtNum.Text) If intNum > 100 Then
lblResol.Caption = txtName.Text & " принят" Else lblResol.Caption = txtName.Text & " не принят" End If
End Sub
11. Событие закрытия для формы возникает при нажатии кнопки 
в верхнем правом углу формы.
13. Запустите программу. Вводим фамилию, имя, число баллов и нажимаем кнопку Прием. Можно убедиться, что программа выдает сообщения при любом числе баллов.
Усков Ю.И., Катеринина С.Ю. |
33 |
каф. МиИТ, нояб.2015 |
Основы программирования в среде Visual Basic for Application (Excel 2010)
Контрольные вопросы
1.Чем отличается однострочный оператор If Then от многострочного?
2.Куда передается управление, если условие в операторе If Then Else истинно?
3.Куда передается управление, если условие в операторе If Then Else ложно?
4.Какие события используются в учебной программе?
Задание для закрепления знаний
Разработайте программу, которая будет определять, превысил ли покупатель универмага предельный размер кредита на своем расчетном счете. Программа должна запрашивать следующую информацию:
Номер счета.
Баланс на начало месяца.
Общая сумма расходов в данном месяце.
Общая сумма кредитов, полученных в данном месяце. Предельный размер кредита в универмаге.
Программа должна вводить эти данные и выводить баланс
Новый баланс = начальный баланс + расходы - кредиты.
При нажатии на кнопку Оценить кредитоспособность программа проверяет, превышает ли новый баланс предельный размер кредита. И в случае превышения: выдавать сообщение Номер счета = <номер счета, предельный размер кредита превышен. Во всех остальных случаях выдается сообщение, в котором указывается Номер счета = <номер счета>, Баланс = <новый баланс>.
3.2. Условный оператор IF...THEN ... ELSEIF ... END IF
Основная цель задания
1.Познакомиться и изучить оператор lf...Then Elself...End If.
2.Познакомится с функцией Rnd().
Краткая справка
Конструкция: If...Then...ElseIf...End If дает возможность проанализировать несколько условий.
Синтаксис оператора:
If Логическое выражение1 Then Elself Логическое выражение2 Then Else
Группа операторов
End If
Если «Логическое выражение1» является истинным, то выполняется «группа операторов!».
Если «Логическое выражение1» является. ложным, то проверяется «Логическое выражение2». Если его значение является истинным, то выполняется «Группа опе-
Усков Ю.И., Катеринина С.Ю. |
34 |
каф. МиИТ, нояб.2015 |