Контрольная работа по vba Вариант 12 Задание
1. Составить таблицу, состоящую из двенадцатизаписей, заполнить ее данными.
|
дата |
время |
стоимость билета |
DJ вечера |
|
|
|
|
|
|
|
|
|
|
2. Создать при помощи редактора VBAследующую форму
3. Переименовать объекты, имена которых будут использованы в тексте программы
4. Написать программу, для поиска информации в таблице при помощи специальной формы:
вводите код доступа (если код равен “1111” – выдать сообщение “ваш код заблокирован” и выйти из программы, если код равен “2222” – выдать сообщение “сейчас вы не можете воспользоваться поиском” и выйти из программы, если код равен “3333” – выдать сообщение “введите другой код” и выйти из программы). Если код не равен “4444” выдать сообщение “неправильный код” и выйти из программы, в противном случае продолжить выполнение программы.
устанавливаете один из переключателей. Если не выбран ни один из переключателей – выдать сообщение об ошибке и выйти из программы.
выбираете одно из значений поля со списком (ComboBox)
после нажатия на кнопку “поиск”выводится сообщение. В этом сообщении, в зависимости от состояния переключателя, должна быть записана соответствующая информация для выбраннойдаты (время, стоимость билета или DJ вечера) и пояснение.
после нажатия на кнопку “о программе” должно выводится сообщение об авторе программы и о самой программе.
Объекты программы
TextBox1 переименовать в код
CommandButton1 переименовать в поиск
CommandButton2 переименовать в инфо
ComboBox1 переименовать в ввод
OptionButton1 переименовать в перекл1 OptionButton2 переименовать в перекл2 OptionButton3 переименовать в перекл3
n – переменная цикла
строка – номер строки в таблице с искомыми данными
a1, a2, a3 – искомые значения из найденной строки (время, стоимость билета и DJ вечера соответственно)
Шаблон программы
|
Private Sub UserForm_Initialize() For n=… to … ввод.AddItem Cells(…) Next n End Sub
|
Инициализация формы
- заполнение содержимого поля со списком ввод. Значения берутся из таблицы при помощи цикла, где n – номер строки таблицы | |
|
Private Sub поиск_Click() Select Case код.Value Case 1111 <действие1> <действие2> Case 2222 <действие1> <действие2> Case 3333 <действие1> <действие2> End Select
|
Начало программы для кнопки поиск
- в зависимости от того, какое значение введено в поле с именем код, выбирается один из трех случаев. В каждом случае необходимо вывести текстовое сообщение (действие1) и выйти из программы (действие2). | |
|
If код<>4444 then <действие1> <действие2> End If |
- если введен неправильный код - необходимо вывести текстовое сообщение (действие1) и выйти из программы (действие2). | |
|
строка= ввод.ListIndex+2 a1=Cells (…) a2=Cells(…) a3=Cells(…)
|
- в переменную строка заносится порядковый номер значения, выбранного в поле ввод (увеличив ее значение на 2 получим номер искомой строки в таблице). В переменные a1, a2 и a3 заносятся искомые значения из соответствующих столбцов и строки строка таблицы. | |
|
If перекл1=False and перекл2=False and перекл3=False then <действие1>
|
- если не установлен ни один из переключателей – вывести текстовое сообщение об ошибке (действие1) | |
|
If перекл1=True then <действие1>
|
- если установлен перекл1, то необходимо вывести текстовое сообщение с переменной a1 (действие1) | |
|
If перекл2=True then <действие1>
|
- если установлен перекл2, то необходимо вывести текстовое сообщение с переменной a2 (действие1) | |
|
If перекл3=True then <действие1>
End Sub
|
- если установлен перекл3, то необходимо вывести текстовое сообщение с переменной a3 (действие1) | |