- •Контрольная работа по vba Вариант 1 Задание
- •OptionButton1 переименовать в перекл1 OptionButton2 переименовать в перекл2 OptionButton3 переименовать в перекл3
- •Шаблон программы
- •Контрольная работа по vba Вариант 2 Задание
- •OptionButton1 переименовать в перекл1 OptionButton2 переименовать в перекл2 OptionButton3 переименовать в перекл3
- •Шаблон программы
- •Контрольная работа по vba Вариант 3 Задание
- •OptionButton1 переименовать в перекл1 OptionButton2 переименовать в перекл2 OptionButton3 переименовать в перекл3
- •Шаблон программы
- •Контрольная работа по vba Вариант 4 Задание
- •OptionButton1 переименовать в перекл1 OptionButton2 переименовать в перекл2 OptionButton3 переименовать в перекл3
- •Шаблон программы
- •Контрольная работа по vba Вариант 5 Задание
- •OptionButton1 переименовать в перекл1 OptionButton2 переименовать в перекл2 OptionButton3 переименовать в перекл3
- •Шаблон программы
- •Контрольная работа по vba Вариант 6 Задание
- •OptionButton1 переименовать в перекл1 OptionButton2 переименовать в перекл2 OptionButton3 переименовать в перекл3
- •Шаблон программы
- •Контрольная работа по vba Вариант 7 Задание
- •OptionButton1 переименовать в перекл1 OptionButton2 переименовать в перекл2 OptionButton3 переименовать в перекл3
- •Шаблон программы
- •Контрольная работа по vba Вариант 8 Задание
- •OptionButton1 переименовать в перекл1 OptionButton2 переименовать в перекл2 OptionButton3 переименовать в перекл3
- •Шаблон программы
- •Контрольная работа по vba Вариант 9 Задание
- •OptionButton1 переименовать в перекл1 OptionButton2 переименовать в перекл2 OptionButton3 переименовать в перекл3
- •Шаблон программы
- •Контрольная работа по vba Вариант 10 Задание
- •OptionButton1 переименовать в перекл1 OptionButton2 переименовать в перекл2 OptionButton3 переименовать в перекл3
- •Шаблон программы
- •Контрольная работа по vba Вариант 11 Задание
- •OptionButton1 переименовать в перекл1 OptionButton2 переименовать в перекл2 OptionButton3 переименовать в перекл3
- •Шаблон программы
- •Контрольная работа по vba Вариант 12 Задание
- •OptionButton1 переименовать в перекл1 OptionButton2 переименовать в перекл2 OptionButton3 переименовать в перекл3
- •Шаблон программы
Контрольная работа по vba Вариант 3 Задание
1. Составить таблицу, состоящую из двенадцатизаписей, заполнить ее данными.
отель |
стоимость путевки |
питание |
описание |
|
|
|
|
|
|
|
|
2. Создать при помощи редактора VBAследующую форму
3. Переименовать объекты, имена которых будут использованы в тексте программы
4. Написать программу, для поиска информации в таблице при помощи специальной формы:
вводите код доступа (если код равен “1111” – выдать сообщение “ваш код заблокирован” и выйти из программы, если код равен “2222” – выдать сообщение “сейчас вы не можете воспользоваться поиском” и выйти из программы, если код равен “3333” – выдать сообщение “введите другой код” и выйти из программы). Если код не равен “4444” выдать сообщение “неправильный код” и выйти из программы, в противном случае продолжить выполнение программы.
устанавливаете один из переключателей. Если не выбран ни один из переключателей – выдать сообщение об ошибке и выйти из программы.
выбираете одно из значений поля со списком (ComboBox)
после нажатия на кнопку “поиск”выводится сообщение. В этом сообщении, в зависимости от состояния переключателя, должна быть записана соответствующая информация для выбранногоотеля (стоимость путевки, питание или описание) и пояснение.
после нажатия на кнопку “о программе” должно выводится сообщение об авторе программы и о самой программе.
Объекты программы
TextBox1 переименовать в код
CommandButton1 переименовать в поиск
CommandButton2 переименовать в инфо
ComboBox1 переименовать в ввод
OptionButton1 переименовать в перекл1 OptionButton2 переименовать в перекл2 OptionButton3 переименовать в перекл3
n – переменная цикла
строка – номер строки в таблице с искомыми данными
a1, a2, a3 – искомые значения из найденной строки (автор стоимость путевки, питание, описание)
Шаблон программы
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) |