Основы программирования в среде Visual Basic for Application (Excel 2010)

Контрольные вопросы

1. Зачем подпрограмма DisplayCaption описывается в заголовке модуля формы?

2.Какие значения может принимать свойство Value элемента Option Button? Что эти значения обозначают?

3.С помощью какого ключевого слова происходит обращение к подпрограммам ?

4.Имеет ли подпрограмма DisplayCaption аргументы?

5.Можно ли программный код, представленный в виде программы DisplayCaption, описать в виде функции? Чем отличается подпрограмма от функции?

Задание 4.2

Создайте программу для выбора правильного ответа на вопрос. Текст вопроса располагается в верхней части формы. Четыре ответа располагаются под вопросом. После того как пользователь выберет один из четырех вариантов ответа, он должен нажать кнопку оценка. Если ответ правильный, то выдается сообщение "Правильный ответ!", в противном случае "Вы ошиблись".

Вопрос: "Для чего предназначена программа Scandisk?"

1)Для удаления вирусов

2)Для удаления временных файлов

3)Для поиска "потерянных" кластеров

4)Для дефрагментации диска

(Правильный ответ3).

5. Флажки. Элементы CheckBox.

Основная цель задания

1. Ознакомиться со свойствами и событиями элемента CheckBox.

Краткая справка

Флажок отчасти похож на элемент-переключатель. Флажки также нередко объединяются в группы с помощью рамок, а по значению Value можно определить текущее состояние флажка. Однако между флажками и переключателями существует два важных отличия:

Флажок может использоваться как отдельный, самостоятельный элемент, тогда как одиночный переключатель выглядит нелогично. Флажки (даже объединенные в группу) работают независимо друг от друга. Наконец, свойство Value для флажков может принимать три возможных значения.. Переключатель может быть либо установлен, либо снят, следовательно, свойство Value может принимать только значения True или False. Флажки могут находиться в трех состояниях: в установленном, снятом или неопределенном.

Неопределенное состояние вовсе не означает, что флажок заблокирован, пользователь может установить или снять его. Если бы флажок был заблокирован, любые операции с ним стали бы невозможны. Обычно флажки в неопределенном состоянии сообщают о том, что на другой форме установлены некоторые (но не все) флажки.

Усков Ю.И., Катеринина С.Ю.

44

каф. МиИТ, нояб.2015

Основы программирования в среде Visual Basic for Application (Excel 2010)

Свойства флажков

Как и в случае переключателей, самую заметную роль играют свойства Name, Caption и Value. Имена флажков (свойство Name) обычно снабжаются префиксом chk.

События флажков

Для немедленной обработки щелчков мышью можно воспользоваться событием Click. Тем не менее, во многих ситуациях можно отказаться от программирования процедуры события Click и использовать другую процедуру, которая проверяет состояние флажка по свойству Value.

Задание 5.1

Создайте программу, определяющую оценку за экзамен. На экзамене предлагается три вопроса, за которые начисляется 14, 16 и 18 баллов. Оценка за экзамен зависит от суммы набранных баллов оценка 5 — сумма баллов от 40 до 50,

оценка 4 — сумма баллов от 32 до 39, оценка 3 — сумма баллов от 18 до 31, оценка 2 — сумма баллов меньше 31.

Технология выполнения учебного задания

1. Выполните пункты 1…5 Задания	Рис.4.2.	1.1

2.Задайте свойству Name формы значение frmZadanie5_1, а свойству Caption при-

свойте значение Оценка за экзамен.

3.Разместите на форме три переключателя (CheckBox) у левого края формы. У каждого переключателя измените значение свойства Name на новое: chkltem1, chkltem2, chkItem3, соответственно. Также свойство Caption каждого пере-

ключателя измените на: «1-ый вопрос (14 баллов)», «2-ой вопрос (16 баллов)», «3-ий вопрос (18 баллов)». Наконец измените шрифт (свойство Font) каждого переключателя на Times Roman, 12 pt.

4.Правее элементов с номерами вопросов разместите два элемента: элементнадпись и текстовый элемент. Для элемента-надписи задайте свойству Name Значение lblSum, а свойству Caption присвойте значение Сумма баллов. Для текстового элемента задайте свойство Name значение txtSum. Удалите текущее содержимое свойства Text. На панели свойств элемента надписи и текстового элемента измени-

те свойство Font — шрифт Times Roman, 12 pt.

5.Ниже элементов Сумма балов разместите два элемента: элемент надпись и текстовый элемент. Для элемента-надписи задайте свойству Name значение lblMark. а свойству Caption присвойте значение Оценка. Для текстового элемента надписи значение свойства Name измените на txtMark. Удалите текущее содержимое свойства Text. На панели свойств элемента надписи и текстового элемента измените шрифт (свойство Font): Times Roman, 12 pt.

6.Ниже блока задач поместите командную кнопку. Для командной кнопки задайте свойство Name значение cmdStart, а свойству Caption присвойте значение Оценить

7.Щелкните дважды по командной кнопке. Раскройте подпрограмму cmd-

Усков Ю.И., Катеринина С.Ю.

45

каф. МиИТ, нояб.2015

Основы программирования в среде Visual Basic for Application (Excel 2010)

Start_Click(). Вставьте в неё следующий фрагмент программы:

Private Sub cmdStart_Click() Dim intSum As Integer

Dim intMark As Integer
If chklteml.Value = 1 Then	intSum = intSum + 14
If chkltem2.Value = 1 Then	intSum = intSum + 18
If chkltemS.Value = 1 Then	intSum = intSum t- 18
txtSum.Text = Str(intSum)
Select Case intSum
Case 40 To 50
intMark = 5
Case 32 To 39
intMark = 4
Case 18 To 31
intMark = 3
Case Is< 18
intMark = 2

End Select

txtMark.Text = Str(intMark) End Sub

8. Сохраните и запустите проект. Проверьте, правильно ли работает программа.

Контрольные вопросы

1.Какие значения может принимать свойство Value элемента CheckBox? Что эти значения обозначают?

2.Чем отличается свойство Value элемента CheckBox от свойства Value элемента

OptionButton?

3.Что означает конструкция txtSum.Text?

4.Что означает оператор txtSum.Text= Str(intSum)? Для чего нужна функция Str()?

5.Что означает оператор txtMark.Text = Str(intMark)? Что изменится при выполнении программы, если из программы удалить оператор txtMark.Text = Str(intMark)?

Задание для закрепления знаний

Составьте программу с помощью Visual Basic для тестирования по теме «Умеете ли вы проводить свободное время?». В ходе тестирования вам нужно отметить утверждения, с которыми вы согласны.

Мой отпуск мне кажется слишком коротким. Мне всегда есть чем себя занять.

Играя с приятелем, я не останавливаюсь, даже если мне скучно. Когда я с друзьями, я инициатор всех игр.

Ялюблю просто бродить без цели.

Ялюблю читать

Яколлекционирую (марки, книги, и т.д.).

Яведу дневник.

Ялюблю решать кроссворды.

Яне считаю дождь в выходные катастрофой.

Усков Ю.И., Катеринина С.Ю.

46

каф. МиИТ, нояб.2015