Знакомство с программой архивации файлов и папок WinRar
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
УКРАЇНСЬКА
ІНЖЕНЕРНО-ПЕДАГОГІЧНА АКАДЕМІЯ
Кафедра Інформатики та
комп’ютерних технологій
Пояснювальна записка
до курсового проекту на тему:
на тему «Знайомство з
програмою архівації файлів та папок WinRar»»
Харків, 2009 р.
УКРАЇНСЬКА
ІНЖЕНЕРНО-ПЕДАГОГІЧНА АКАДЕМІЯ
Факультет
Радіоелектроніки, електромеханіки і комп’ютерних систем
Кафедра
інформатики і комп’ютерних технологій
Спеціальність
(6.010100.36) Професійне навчання. Комп’ютерні технології в управлінні та
навчанні
ЗАТВЕРДЖУЮ:
доц. каф. ІКТ, к.т.н. _________
«01» листопада 2009 р.
ЗАВДАННЯ
НА
курсовий ПРОЕКТ СТУДЕНТА
. Тема проекту: Електронний посібник для дистанційного
навчання з дисципліни «Виробниче навчання» на тему «Знайомство з програмою
архівації файлів та папок WinRar».
затверджена наказом по кафедрі ІКТ від 1.11.2009 №10
. Термін здачі студентом закінченого проекту: 20.12.2009
. Вихідні дані до проекту: 1) матеріал з дисципліни «Основи
дистанційного навчання»; 2) інформація з Web - сайтів на тему «Програма архівації
папок та файлів WinRar».
. Зміст пояснювальної записки (перелік питань, що їх
необхідно розробити): технічне завдання, схема алгоритму навчального посібника,
електронний навчальний посібник, педагогічний сценарій.
. Перелік графічного матеріалу: схема алгоритму, додатки.
. Консультант: доц. к. н. _________________________.
. Дата видачі завдання: 01.11.2009
Керівник ____________
Завдання прийняв до виконання
Аннотация
Курсовой проект посвящен разработке электронного учебного пособия (ЭУП)
для дистанционного обучения по дисциплине «Производственное обучение». В качестве учебного пособия поручено разработать
тему «Знакомство с программой архивации файлов и папок WinRar». В соответствии с «Техническим заданием» ЭУП
содержит информационные, инструктивные и контролирующие кадры и рассчитано на
45-60 минут работы. Содержание обучающих кадров ЭУП следующее:
· Визуальное описание интерфейса программы.
· Меню программы WinRar.
· Темы интерфейса WinRar.
· Добавление файлов и папок в архив.
· Извлечение архива в указанную папку.
· Тестирование файлов.
· Просмотр файла.
· Удаление файлов.
· Вывод информации об архиве.
· Добавление архивного комментария.
· Блокирование архива.
· Проверка архива на вирусы.
· Восстановление архива.
· Поиск файлов.
· Создание отчёта.
· Создание архивов разных форматов.
· Непрерывные архивы.
· Шифрование файлов и папок.
· Извлечение файлов с помощью оболочки WinRAR.
· Извлечение файлов в Проводнике.
· Архивирование файлов с помощью оболочки WinRAR.
· Архивирование файлов в Проводнике.
ЭУП работает в двух режимах: обучение и тестовый контроль. При обучении
осуществляется текущий контроль усвоения учебного материала. Во время тестового
контроля задаются 40 вопросов, предъявляемых в случайном порядке. По итогам ответов
выставляется оценка, сообщаемая студенту. После контроля студент может по
желанию повторить обучение или тестовый контроль, просмотреть статистические
данные по результатам обучения или завершить работу с ЭУП.
Содержание
1. Техническое задание
.1 Введение
.2 Основания для разработки
.3 Назначение разработки
.4 Требования к прикладной системе
. 4.1 Требования к функциональным характеристикам
.4.2 Условия эксплуатации
.4.3 Требования к составу и параметрам технических средств
.4.4 Требования к маркировке и упаковке
.4.5 Требования к транспортированию и хранению
.5 Требования к программной документации
.6 Порядок контроля и приемки
Календарный план
Введение
. Педагогический сценарий
.1 Интерфейс приложения.
Схема алгоритма
Руководство пользователя
Приложение
1. Техническое задание
.1 Введение
Предметом разработки является электронное учебное пособие для
дистанционного обучения по дисциплине «Производственное обучение» на тему
«Знакомство с программой архивации файлов и папок WinRar».
Область применения - дистанционное обучение студентов дневной и заочной
форм обучения специальности 8.010104.36 «Профессиональное обучение.
Компьютерные технологии в управлении и обучении».
Начало работ - 1.11.2009 г.
Окончание работ - 20.12.2009 г.
Исполнитель - студент гр. ___________________________________.
1.2 Основания для разработки
Основанием для разработки является задание, выданное кафедрой информатики
и компьютерных технологий от 1.11.2009 г.
1.3 Назначение разработки
Электронное учебное пособие для дистанционного обучения по дисциплине
«Производственное обучение» на тему «Знакомство с программой архивации файлов и
папок WinRar» предназначено для дистанционного
обучения студентов дневной и заочной форм обучения специальности 8.010104.36
«Профессиональное обучение. Компьютерные технологии в управлении и обучении».
1.4 Требования к прикладной системе
.4.1 Требования к функциональным характеристикам
Электронное учебное пособие для дистанционного обучения должно
представлять Web-приложение, разработанное на основе ASP-технологии в среде Visual Basic .Net.
Электронное учебное пособие должно содержать:
· титульный кадр;
· кадр регистрации;
· вступительный кадр;
· информационные кадры;
· кадры закрепления материала и самоконтроля;
· кадр со статистическими данными о результатах обучения;
· кадр информации об авторе.
Web-приложение
должно реализовывать следующие функции сервера:
· предоставлять клиенту для просмотра информационный материал в виде
Web-страниц, содержащих мультимедийную информацию:
- текст;
- видеоинформацию;
- аудиоинформацию;
· оперативно реагировать на запросы клиентов, возникающие при просмотре
информационных страниц;
· предоставлять клиенту для контроля Web-страницы с 10 видами тестов по 4 вопроса на каждый
вид теста:
· обрабатывать сообщение от клиента о выбранном ответе,
заносить его в базу данных и формировать сообщение о правильности ответа;
· накапливать статистику по результатам обучения и формировать
отчеты по запросам клиентов (по группе, по студенту, по тесту каждого вида);
· разграничить доступ к статистическим данным для пользователя
преподавателю и студенту;
· Web-приложение должно реализовывать следующие функции
клиентской части:
· информационные и контролирующие страницы должны содержать
средства (программный код),
информирующий сервер о действии или ответе пользователя;
· информационные и контролирующие страницы должны содержать
средства навигации.
1.4.2 Условия эксплуатации
Условия эксплуатации электронного учебного пособия для дистанционного
обучения по дисциплине «Производственное обучение» на тему «Знакомство с
программой архивации файлов и папок WinRar» совпадают с условиями стабильной эксплуатации современных персональных
компьютеров.
1.4.3 Требования к составу и параметрам
технических средств
Для стабильной работы электронного учебного пособия для дистанционного
обучения по дисциплине «Производственное обучение» на тему «Знакомство с
программой архивации файлов и папок WinRar» необходимо для обработки серверной части: IBM PC совместимый компьютер
с процессором не ниже Pentium III, 256 Мбайт ОЗУ, MS Windows 2000 и выше, MS
IIS сервер версии не ниже 5 с ASP.Net; для обработки клиентской части: IBM PC
совместимый компьютер с процессором не ниже Pentium II, 128 Мбайт ОЗУ,
SVGA-видеокартой (1024*768, High Color 16 бит), звуковой картой, MS Windows
совместимой мышью, MS Windows 2000 и выше, Internet Explorer не ниже 5 ой
версии с доступом к серверной части.
1.4.4 Требования к маркировке и упаковке
Для переноса электронного учебного пособия для дистанционного обучения по
дисциплине «Производственное обучение» на тему «Знакомство с программой
архивации файлов и папок WinRar»
с целью её установки на персональных компьютерах, используемых в учебном
процессе, требуется один диск типа CD-R.
1.4.5 Требования к транспортированию и хранению
Транспортирование электронного учебного пособия для дистанционного
обучения по дисциплине «Производственное обучение» на тему «Знакомство с
программой архивации файлов и папок WinRar» целесообразно производить на CD-R, указанных в предыдущем пункте.
Хранение следует осуществлять на CD-R или на жестком диске компьютера.
1.5 Требования к программной документации
Электронное учебное пособие для дистанционного обучения по дисциплине
«Производственное обучение» на тему «Знакомство с программой архивации файлов и
папок WinRar» должно сопровождаться следующими
документами:
· «Техническое задание»;
· «Руководство пользователя».
Указанные документы должны обеспечивать эксплуатацию системы и
соответствовать действующим стандартам.
1.6 Порядок контроля и приемки
Результаты работы рассматриваются и утверждаются на заседаниях кафедры
Информатики и компьютерных технологий и на совете РЭКС - факультета.
По окончанию работ должны быть представлены следующие документы:
· электронное учебное пособие для дистанционного обучения по дисциплине
«Производственное обучение» на тему «Знакомство с программой архивации файлов и
папок WinRar»;
· документы: «Руководство пользователя»;
· раздел пояснительной записки курсового проекта по дисциплине
«Основы дистанционного обучения».
Календарный план
«УТВЕРЖДАЮ»
Доцент кафедры ИКТ
_____________________________
«01» ноября 2009 г.
|
№ п/п
|
Выполняемая работа
|
Планируемый срок исполнения
(номер недели)
|
|
1.
|
Уяснение поставленной
задачи и оформление задания на курсовое проектирование
|
1
|
|
2.
|
Подбор и изучение
литературы по тематике курсового проектирования
|
2
|
|
3.
|
Разработка и оформление
технического задания на создание электронного учебного пособия
|
3
|
|
4.
|
Проектирование и создание
пользовательского интерфейса электронного учебного пособия
|
4
|
|
5.
|
Разработка информационных
кадров электронного учебного пособия
|
6
|
|
6.
|
Разработка контролирующих
кадров электронного учебного пособия
|
9
|
|
7.
|
Добавление аудио и
видеоинформации в электронное учебное пособие
|
|
|
9.
|
Оформление пояснительной
записки и графического материала
|
10
|
|
10.
|
Подготовка к защите
|
10
|
Студент _____________________
Введение
Современные технологии и новые возможности в наше время, открывают перед
людьми новые горизонты в сфере образования. Все популярнее сегодня становится
высшее дистанционное образование, являющееся неотъемлемой составляющей системы
высшей школы. Высшее дистанционное образование является лидером в
дополнительном, послевузовском и профессиональном образовании. Эта форма
получения новых знаний специально создана для современного творческого
человека.
Под высшим дистанционным образованием (ВДО) понимаются образовательные
технологии, реализуемые в основном с применением информационных и
телекоммуникационных технологий при опосредованном (на расстоянии) или не
полностью опосредованном взаимодействии обучающегося и педагогического
работника.
Дистанционная форма обучения по своей методологии претендует на отдельную
форму обучения (наряду с очной, заочной, вечерней, экстернатом), т.к. она
открывает большие возможности, и преодолевает многочисленные преграды не только
для молодёжи и взрослых, которые стремятся получить высшее образование, но и
для людей с ограниченными возможностями. Современные информационные
образовательные технологии позволяют учиться незрячим, глухим и страдающим
заболеваниями опорно-двигательного аппарата.
Учитываются индивидуальные способности, потребности, темперамент и
занятость студента. Он может изучать учебные курсы в любой последовательности,
быстрее или медленнее. Все это делает дистанционную форму обучения
качественнее, доступнее и дешевле традиционной.
Таким образом, проблема разработки систем дистанционного обучения
непосредственно вытекает как из современных тенденций в системе образования,
так и из проблемы повышения качества обучения, являющейся основной проблемой
образования, не зависящей ни от каких современных тенденций.
В настоящее время активно разрабатываются компьютерные инструментальные
средства для ведения учебных курсов для дистанционного обучения. Практически по
всем направлениям учебных дисциплин создаются электронные учебники и
самоучители.
Учебники и учебные пособия нового поколения должны иметь разветвленную
структуру, для которой характерна блочно-модульная модель представления знаний.
Кроме этого электронный учебник должен содержать не только информационный блок,
но и блок текущего или итогового контроля знаний.
Однако, таких электронных обучающих программ на сегодняшний день очень
мало, а методической литературы для изучения какого - либо учебного материала
явно недостаточно. В связи с этим возникает необходимость в разработке
электронного учебного пособия по работе с программой архивации папок и файлов WinRar - это 32-разрядная версия архиватора
RAR для Windows, мощного средства создания архивов и управления ими. Существует
несколько версий RAR для разных операционных систем, в частности, RAR для
Windows, Linux, FreeBSD, DOS, OS/2, Mac OS X. Кроме того, с помощью WinRar можно использовать оригинальный
высокоэффективный алгоритм сжатия данных, упаковывать значительное количество
больших файлов, возможность восстановления физически повреждённых архивов (в
которых содержится важные данные), поддержка кодировки Юникод в именах файлов,
шифрование файлов и папок и многое другое.
Данное электронное учебное пособие содержит информационные, инструктивные
и контролирующие кадры
Электронное учебно-методические пособие может применяться в учебных
заведениях в качестве дополнительного учебного средства для самостоятельной
работы учащихся, для организации фронтальной работы в классе, для подготовки
учителя к уроку. Электронный помощник призван помочь учащемуся, способствуя
более эффективному, наглядному процессу обучения, а также учителю, обеспечивая
дифференцируемое изложение учебного материала и оперативный контроль знаний
учащихся.
При использовании данного электронного учебного пособия, обучение
происходит максимально быстро, учебный материал усваивается лучше, за счет
наглядности и интерактивности обучения.
2. Педагогический сценарий
.1 Интерфейс приложения
Кадр 1 (Главная страница учебного пособия)
Для перехода на следующий кадр нажать кнопку «Далее».
- при нажатии на кнопку, обучаемый получает информацию о разработчике
данной системы (переход на кадр 76 (Об авторе)).
Кадр 2 (Кадр регистрации пользователя)
Для регистрации необходимо в поле ввести свое имя и нажать на кнопку «ОК»
(переход на кадр 3 (Выбор режима))
при нажатии на кнопку обучаемый получает информацию о разработчике данной
системы (переход на кадр 76 (Об авторе)).
Кадр 3 (Выбор режима)
Обучение. При нажатии на ссылку, обучаемому предлагается пройти курс
обучения по данной системе (переход на кадр 4 (Разделы обучения)).
Контроль. При нажатии на ссылку обучаемый может пройти тест, состоящий из
ряда вопросов (кадры 11 - 20, 35 - 44, 50 - 60, 66 - 75). После прохождения
тестирования, обучаемый переходит на кадр с выводом результатов тестирования
(кадр 77 (Результат тестирования)).
Статистика. При нажатии на кнопку обучаемый может просмотреть статистику,
т.е. данные по пройденному тесту (переход на кадр 78 (Результат обучения)).
Справка. При нажатии на кнопку обучаемый может ознакомиться с основами
работы с учебным пособием (переход на кадр 75 (Справка)).
Об авторе. При нажатии на кнопку обучаемый получает информацию о
разработчике данной системы (переход на кадр 76 (Об авторе)).
Кадр 4 (Разделы обучения)
Раздел 1: Интерфейс программы WinRar. При нажатии на ссылку обучаемый переходит к первому разделу обучения
(переход на кадр 5 (Раздел 1)).
Раздел 2: Команды управления файлами и архивами. При нажатии на ссылку
обучаемый переходит ко 2-му разделу обучения (переход на кадр 21 (Раздел 2)).
Раздел 3: Типы архивов и их параметры. При нажатии на ссылку обучаемый
переходит к третьему разделу обучения (переход на кадр 45 (Раздел 3)).
Раздел 4: Режимы графической оболочки. При нажатии на ссылку обучаемый
переходит к 4-му разделу обучения (переход на кадр 60 (Раздел 4)).
Назад. При нажатии на ссылку обучаемый переходит на кадр 3 (Выбор
режима).
при нажатии на кнопку обучаемый получает информацию о разработчике данной
системы (переход на кадр 76 (Об авторе)).
Кадр 5 (Раздел 1. Интерфейс программы WinRar)
Визуальное описание программы. При нажатии на ссылку, обучаемый переходит
на кадр 6 (Выбор действия. Раздел 1), в котором он может выбрать или просмотр
текстовой информации или просмотр видео, которые предоставлены для обучения.
Меню WinRar. При нажатии на ссылку, обучаемый
переходит на кадр 6 (Выбор действия. Раздел 1), в котором он может выбрать или
просмотр текстовой информации или просмотр видео, которые предоставлены для
обучения.
Темы интерфейса WinRar.
При нажатии на ссылку, обучаемый переходит на кадр 6 (Выбор действия. Раздел
1), в котором он может выбрать или просмотр текстовой информации или просмотр
видео, которые предоставлены для обучения.
Контроль по разделу 1. При нажатии на ссылку, обучаемый переходит на
кадры с тестовым контролем по данной тематике (кадры 11 - 20).
Назад. При нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы
обучения).
при нажатии на кнопку обучаемый получает информацию о разработчике данной
системы (переход на кадр 76 (Об авторе)).
Кадр 6 (Выбор действия. Раздел 1)
Просмотр текста. При нажатии на ссылку, обучаемый переходит на страницу с
текстовой информацией, которая представлена для обучения (переход на кадры: 7
(Визуальное описание программы), 8 (Меню WinRar), 9 (Темы интерфейса WinRar).
Просмотр видео. При нажатии на ссылку, обучаемому предоставляется
видео-обучение по данной тематике (переход на кадр 10 (Видео-обучение)
Назад. При нажатии на ссылку, обучаемый переходит на кадр 5 (Раздел 1.
Интерфейс программы WinRar).
при нажатии на кнопку обучаемый получает информацию о разработчике данной
системы (переход на кадр 76 (Об авторе)).
Кадр 7 (Визуальное описание программы)
Для возврата на предыдущий кадр обучаемому необходимо нажать кнопку 
Назад на обозревателе Internet Explorer.
Кадр 8 (Меню WinRar)
Для возврата на предыдущий кадр обучаемому необходимо нажать кнопку Назад на обозревателе Internet Explorer.
Кадр 9 (Темы интерфейса WinRar)
Для возврата на предыдущий кадр обучаемому необходимо нажать кнопку Назад на обозревателе Internet Explorer.
Кадр 10 (Видео-обучение)
Назад. При нажатии на ссылку, обучаемый переходит на предыдущий кадр.
при нажатии на кнопку обучаемый получает информацию о разработчике данной
системы (переход на кадр 76 (Об авторе)).
Кадр 11 (Вопрос 1. Раздел 1)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 12 (Вопрос 2. Раздел 1)).
Кадр 12 (Вопрос 2. Раздел 1)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 13 (Вопрос 3. Раздел 1)).
Кадр 13 (Вопрос 3. Раздел 1)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 14 (Вопрос 4. Раздел 1)).
Кадр 14 (Вопрос 4. Раздел 1)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 15 (Вопрос 5. Раздел 1)).
Кадр 15 (Вопрос 5. Раздел 1)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 16 (Вопрос 6. Раздел 1)).
Кадр 16 (Вопрос 6. Раздел 1)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 17 (Вопрос 7. Раздел 1)).
Кадр 17 (Вопрос 7. Раздел 1)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 18 (Вопрос 8. Раздел 1)).
Кадр 18 (Вопрос 8. Раздел 1)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 19 (Вопрос 9. Раздел 1)).
Кадр 19 (Вопрос 9. Раздел 1)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 20 (Вопрос 10. Раздел 1)).
Кадр 20 (Вопрос 10. Раздел 1)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый возвращается на кадр с выбором
разделов обучения (кадр 4 (Разделы обучения)).
Кадр 21 (Раздел 2. Команды управления файлами и их архивами)
Добавление в архив.
При нажатии на ссылку,
обучаемый переходит на кадр 22 (Выбор действия. Раздел 2), в котором он может
выбрать или просмотр текстовой информации или просмотр видео, которые предоставлены
для обучения.
Извлечение в указанную папку. При нажатии на ссылку, обучаемый переходит
на кадр 22 (Выбор действия. Раздел 2), в котором он может выбрать или просмотр
текстовой информации или просмотр видео, которые предоставлены для обучения.
Тестирование файлов. При нажатии на ссылку, обучаемый переходит на кадр
22 (Выбор действия. Раздел 2), в котором он может выбрать или просмотр
текстовой информации или просмотр видео, которые предоставлены для обучения.
Просмотр файла. При нажатии на ссылку, обучаемый переходит на кадр 22
(Выбор действия. Раздел 2), в котором он может выбрать или просмотр текстовой
информации или просмотр видео, которые предоставлены для обучения.
Удаление файлов. При нажатии на ссылку, обучаемый переходит на кадр 22
(Выбор действия. Раздел 2), в котором он может выбрать или просмотр текстовой
информации или просмотр видео, которые предоставлены для обучения.
Вывод информации об архиве. При нажатии на ссылку, обучаемый переходит на
кадр 22 (Выбор действия. Раздел 2), в котором он может выбрать или просмотр
текстовой информации или просмотр видео, которые предоставлены для обучения.
Добавление архивного комментария. При нажатии на ссылку, обучаемый
переходит на кадр 22 (Выбор действия. Раздел 2), в котором он может выбрать или
просмотр текстовой информации или просмотр видео, которые предоставлены для
обучения.
Блокирование архива. При нажатии на ссылку, обучаемый переходит на кадр
22 (Выбор действия. Раздел 2), в котором он может выбрать или просмотр
текстовой информации или просмотр видео, которые предоставлены для обучения.
Проверка архива на вирусы. При нажатии на ссылку, обучаемый переходит на
кадр 22 (Выбор действия. Раздел 2), в котором он может выбрать или просмотр
текстовой информации или просмотр видео, которые предоставлены для обучения.
Восстановление архива. При нажатии на ссылку, обучаемый переходит на кадр
22 (Выбор действия. Раздел 2), в котором он может выбрать или просмотр
текстовой информации или просмотр видео, которые предоставлены для обучения.
Поиск файлов. При нажатии на ссылку, обучаемый переходит на кадр 22
(Выбор действия. Раздел 2), в котором он может выбрать или просмотр текстовой
информации или просмотр видео, которые предоставлены для обучения.
Создание отчёта. При нажатии на ссылку, обучаемый переходит на кадр 22
(Выбор действия. Раздел 2), в котором он может выбрать или просмотр текстовой
информации или просмотр видео, которые предоставлены для обучения.
Контроль по разделу 2. При нажатии на ссылку, обучаемый переходит на кадр
с тестовым контролем по данной тематике (кадры 35 - 44).
Назад. При нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы
обучения).
при нажатии на кнопку обучаемый получает информацию о разработчике данной
системы (переход на кадр 76 (Об авторе)).
Кадр 22 (Выбор действия. Раздел 2)
Просмотр текста. При нажатии на ссылку, обучаемый переходит на страницу с
текстовой информацией, которая представлена для обучения (переход на кадры: 23
(Добавление в архив), 24 (Извлечение в указанную папку), 25 (Тестирование
файлов), 26 (Просмотр файла), 27 (Удаление файлов), 28 (Вывод информации об
архиве), 29 (Добавление архивного комментария), 30 (Блокирование архива), 31
(Проверка архива на вирусы), 32 (Восстановление архива), 33 (Поиск файлов), 34
(Создание отчёта)).
Просмотр видео. При нажатии на ссылку, обучаемому предоставляется
видео-обучение по данной тематике (переход на кадр 10 (Видео-обучение).
Назад. При нажатии на ссылку, обучаемый переходит на кадр 21 (Раздел 2.
Команды управления файлами и их архивами).
при нажатии на кнопку обучаемый получает информацию о разработчике данной
системы (переход на кадр 76 (Об авторе)).
Кадр 23 (Добавление в архив)
Для возврата на предыдущий кадр обучаемому необходимо нажать кнопку Назад на обозревателе Internet Explorer.
Кадр 24 (Извлечение в указанную папку)
Для возврата на предыдущий кадр обучаемому необходимо нажать кнопку Назад на обозревателе Internet Explorer.
Кадр 25 (Тестирование файлов)
Для возврата на предыдущий кадр обучаемому необходимо нажать кнопку Назад на обозревателе Internet Explorer.
Кадр 26 (Просмотр файла)
Для возврата на предыдущий кадр обучаемому необходимо нажать кнопку Назад на обозревателе Internet Explorer.
Кадр 27 (Удаление файлов)
Для возврата на предыдущий кадр обучаемому необходимо нажать кнопку Назад на обозревателе Internet Explorer.
Кадр 28 (Вывод информации об архиве)
Для возврата на предыдущий кадр обучаемому необходимо нажать кнопку Назад на обозревателе Internet Explorer.
Кадр 29 (Добавление архивного комментария)
Для возврата на предыдущий кадр обучаемому необходимо нажать кнопку Назад на обозревателе Internet Explorer.
Кадр 30 (Блокирование архива)
Для возврата на предыдущий кадр обучаемому необходимо нажать кнопку Назад на обозревателе Internet Explorer.
Кадр 31 (Проверка архива на вирусы)
Для возврата на предыдущий кадр обучаемому необходимо нажать кнопку Назад на обозревателе Internet Explorer.
Кадр 32 (Восстановление архива)
Для возврата на предыдущий кадр обучаемому необходимо нажать кнопку Назад на обозревателе Internet Explorer.
Кадр 33 (Поиск файлов)
Для возврата на предыдущий кадр обучаемому необходимо нажать кнопку Назад на обозревателе Internet Explorer.
Кадр 34 (Создание отчёта)
Для возврата на предыдущий кадр обучаемому необходимо нажать кнопку Назад на обозревателе Internet Explorer.
Кадр 35 (Вопрос 1. Раздел 2)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 36 (Вопрос 2. Раздел 2)).
Кадр 36 (Вопрос 2. Раздел 2)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 37 (Вопрос 3. Раздел 2)).
Кадр 37 (Вопрос 3. Раздел 2)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 38 (Вопрос 4. Раздел 2)).
Кадр 38 (Вопрос 4. Раздел 2)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 39 (Вопрос 5. Раздел 2)).
Кадр 39 (Вопрос 5. Раздел 2)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 40 (Вопрос 6. Раздел 2)).
Кадр 40 (Вопрос 6. Раздел 2)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 41 (Вопрос 7. Раздел 2)).
Кадр 41 (Вопрос 7. Раздел 2)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 42 (Вопрос 8. Раздел 2)).
Кадр 42 (Вопрос 8. Раздел 2)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 43 (Вопрос 9. Раздел 2)).
Кадр 43 (Вопрос 9. Раздел 2)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 44 (Вопрос 10. Раздел 2)).
Кадр 44 (Вопрос 10. Раздел 2)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый возвращается на кадр с выбором
разделов обучения (кадр 4 (Разделы обучения)).
Кадр 45 (Раздел 3. Типы архивов и их параметры)
Создание архивов разных параметров. При
нажатии на ссылку, обучаемый переходит на кадр 46 (Выбор действия. Раздел 3), в
котором он может выбрать или просмотр текстовой информации или просмотр видео,
которые предоставлены для обучения.
Непрерывные архивы. При нажатии на ссылку, обучаемый переходит на кадр 46
(Выбор действия. Раздел 3), в котором он может выбрать или просмотр текстовой
информации или просмотр видео, которые предоставлены для обучения.
Шифрование. При нажатии на ссылку, обучаемый переходит на кадр 46 (Выбор
действия. Раздел 3), в котором он может выбрать или просмотр текстовой
информации или просмотр видео, которые предоставлены для обучения.
Контроль по разделу 3. При нажатии на ссылку, обучаемый переходит на
кадры с тестовым контролем по данной тематике (кадры 50 - 60).
Назад. При нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы
обучения).
при нажатии на кнопку обучаемый получает информацию о разработчике данной
системы (переход на кадр 76 (Об авторе)).
Кадр 46 (Выбор действия. Раздел 3)
Просмотр текста. При нажатии на ссылку, обучаемый переходит на страницу с
текстовой информацией, которая представлена для обучения (переход на кадры: 47
(Настройка общих параметров проигрывателя), 48 (Настройка параметров
библиотеки), 49 (Настройка параметров для копирования компакт - дисков)).
Просмотр видео. При нажатии на ссылку, обучаемому предоставляется
видео-обучение по данной тематике (переход на кадр 10 (Видео-обучение).
Назад. При нажатии на ссылку, обучаемый переходит на кадр 45 (Раздел 3.
Типы архивов и их параметры).
при нажатии на кнопку обучаемый получает информацию о разработчике данной
системы (переход на кадр 76 (Об авторе)).
Кадр 47 (Создание архивов разных параметров)
Для возврата на предыдущий кадр обучаемому необходимо нажать кнопку Назад на обозревателе Internet Explorer.
Кадр 48 (Непрерывные архивы)
Для возврата на предыдущий кадр обучаемому необходимо нажать кнопку Назад на обозревателе Internet Explorer.
Кадр 49 (Шифрование)
Для возврата на предыдущий кадр обучаемому необходимо нажать кнопку Назад на обозревателе Internet Explorer.
Кадр 50 (Вопрос 1. Раздел 3)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 51 (Вопрос 2. Раздел 3)).
Кадр 51 (Вопрос 2. Раздел 3)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 52 (Вопрос 3. Раздел 3)).
Кадр 52 (Вопрос 3. Раздел 3)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 53 (Вопрос 4. Раздел 3)).
Кадр 53 (Вопрос 4. Раздел 3)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 54 (Вопрос 5. Раздел 3)).
Кадр 54 (Вопрос 5. Раздел 3)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Кадр 55 (Вопрос 6. Раздел 3)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 56 (Вопрос 7. Раздел 3)).
Кадр 56 (Вопрос 7. Раздел 3)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 57 (Вопрос 8. Раздел 3)).
Кадр 57 (Вопрос 8. Раздел 3)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 58 (Вопрос 9. Раздел 3)).
Кадр 58 (Вопрос 9. Раздел 3)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 59 (Вопрос 10. Раздел 3)).
Кадр 59 (Вопрос 10. Раздел 3)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый возвращается на кадр с выбором
разделов обучения (кадр 4 (Разделы обучения)).
Кадр 60 (Раздел 4. Режимы графической оболочки)
Извлечение файлов с помощью оболочки WinRar. При нажатии на
ссылку, обучаемый переходит на кадр 61 (Выбор действия. Раздел 4), в котором он
может выбрать или просмотр текстовой информации или просмотр видео, которые
предоставлены для обучения.
Извлечение файлов Проводнике. При нажатии на ссылку, обучаемый переходит
на кадр 61 (Выбор действия. Раздел 4), в котором он может выбрать или просмотр
текстовой информации или просмотр видео, которые предоставлены для обучения.
Архивирование файлов с помощью оболочки WinRar. При нажатии на ссылку, обучаемый переходит на кадр
61 (Выбор действия. Раздел 4), в котором он может выбрать или просмотр
текстовой информации или просмотр видео, которые предоставлены для обучения.
Архивирование файлов в Проводнике. При нажатии на ссылку, обучаемый
переходит на кадр 61 (Выбор действия. Раздел 4), в котором он может выбрать или
просмотр текстовой информации или просмотр видео, которые предоставлены для
обучения.
Контроль по разделу 4. При нажатии на ссылку, обучаемый переходит на
кадры с тестовым контролем по данной тематике (кадры 66 - 75).
Назад. При нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы
обучения).
при нажатии на кнопку обучаемый получает информацию о разработчике данной
системы (переход на кадр 76 (Об авторе)).
Кадр 61 (Выбор действия. Раздел 4)
Просмотр текста. При нажатии на ссылку, обучаемый переходит на страницу с
текстовой информацией, которая представлена для обучения (переход на кадры: 62
(Извлечение файлов с помощью оболочки WinRar), 63 (Извлечение файлов Проводнике), 64 (Архивирование файлов с помощью
оболочки WinRar), 65 (Архивирование файлов в
Проводнике)).
Просмотр видео. При нажатии на ссылку, обучаемому предоставляется
видео-обучение по данной тематике (переход на кадр 10 (Видео-обучение).
Назад. При нажатии на ссылку, обучаемый переходит на кадр 60 (Раздел 4.
Режимы графической оболочки).
при нажатии на кнопку обучаемый получает информацию о разработчике данной
системы (переход на кадр 76 (Об авторе)).
Кадр 62 (Извлечение файлов с помощью оболочки WinRar)
Для возврата на предыдущий кадр обучаемому необходимо нажать кнопку Назад на обозревателе Internet Explorer.
Кадр 63 (Извлечение файлов Проводнике)
Для возврата на предыдущий кадр обучаемому необходимо нажать кнопку Назад на обозревателе Internet Explorer.
Кадр 64 (Архивирование файлов с помощью оболочки WinRar)
Для возврата на предыдущий кадр обучаемому необходимо нажать кнопку Назад на обозревателе Internet Explorer.
Кадр 65 (Архивирование файлов в Проводнике)
Для возврата на предыдущий кадр обучаемому необходимо нажать кнопку Назад на обозревателе Internet Explorer.
Кадр 66 (Вопрос 1. Раздел 4)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 67 (Вопрос 2. Раздел 4)).
Кадр 67 (Вопрос 2. Раздел 4)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 68 (Вопрос 3. Раздел 4)).
Кадр 68 (Вопрос 3. Раздел 4)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 69 (Вопрос 4. Раздел 4)).
Кадр 69 (Вопрос 4. Раздел 4)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 70(Вопрос 5. Раздел 4)).
Кадр 70 (Вопрос 5. Раздел 4)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 71 (Вопрос 6. Раздел 4)).
Кадр 71 (Вопрос 6. Раздел 4)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 72 (Вопрос 7. Раздел 4)).
Кадр 72 (Вопрос 7. Раздел 4)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 73 (Вопрос 8. Раздел 4)).
Кадр 73 (Вопрос 8. Раздел 4)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 74 (Вопрос 9. Раздел 4)).
Кадр 74 (Вопрос 9. Раздел 4)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый переходит к следующему вопросу
(кадр 75 (Вопрос 10. Раздел 4)).
Кадр 75 (Вопрос 10. Раздел 4)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
Далее. При нажатии на ссылку, обучаемый возвращается на кадр с выбором
разделов обучения (кадр 4 (Разделы обучения)).
Кадр 76 (Справка)
Обучение.
При нажатии на ссылку обучаемый может просмотреть информацию о разделе
Обучение.
Контроль.
При нажатии на ссылку обучаемый может просмотреть информацию о разделе
Контроль.
Назад. При нажатии на ссылку, обучаемый переходит на кадр 3 (Выбор
режима).
при нажатии на кнопку обучаемый получает информацию о разработчике данной
системы (переход на кадр 76 (Об авторе)).
Кадр 76 (Об авторе)
Назад. При нажатии на ссылку, обучаемый возвращается на предыдущий кадр.
Кадр 77 (Результат тестирования)
Возврат в обучение. При
нажатии на ссылку, обучаемый переходит на кадр 4 (Разделы обучения).
На главную. При нажатии на ссылку обучаемый переходит на кадр 3 (Выбор
режима).
Статистика. При нажатии на ссылку, обучаемый может просмотреть статистику
результатов обучения (переход на кадр 78 (Результаты обучения)).
при нажатии на кнопку обучаемый получает информацию о разработчике данной
системы (переход на кадр 76 (Об авторе)).
Кадр 78 (Результат обучения)
На главную. При нажатии на ссылку обучаемый переходит на кадр 3 (Выбор
режима).
Выход. При нажатии на ссылку, обучаемый переходит на кадр 79 (Выход).
Кадр 79 (Выход)
На титульную страницу. При нажатии на ссылку, обучаемый переходит на кадр 1 (Главная страница учебного пособия).
Схема алгоритма
Руководство пользователя
|
Функция
|
Действия пользователя
|
Информация на экране
|
|
1. Запуск приложения
|
Для запуска данного
электронного учебного пособия необходимо запустить обозреватель Internet Explorer.
|
|
|
2. Запуск на выполнение
|
Для запуска электронного
пособия на выполнение необходимо в адресной строке обозревателя Internet Explorer ввести адрес #"721976.files/image004.jpg">
|
|
3. Переход на страницу
регистрации
|
Для перехода на следующую
страницу (Регистрация), в открывшемся окне необходимо нажать кнопку «Далее».
|
|
|
4. Переход на страницу с
выбором режимов
|
Для регистрации необходимо
в поле ввести свое ФИО и нажать на кнопку «ОК».
|
|
|
5. Выбор режимов
|
В открывшемся окне выберите
необходимый раздел («Контроль» или «Обучение»), или просмотр статистики
результатов тестирования, или просмотр «Справки», или просмотр сведения «Об
авторе» данного электронного пособия.
|
|
|
6. Режим «Обучение»
|
При выборе режима
«Обучение», можете выбрать необходимый раздел и просмотреть с помощью ссылок
либо текст, либо видео, предоставленные для обучения. Также можете пройти
тестовый контроль по каждому режиму. При правильном, или неправильном, ответе
на вопрос выводятся соответствующие сообщения. Для перехода на следующий
вопрос необходимо нажать ссылку «Далее».
|
  
|
|
7. Режим «Контроль»
|
При выборе режима
«Контроль», задаются 40 вопросов, предъявляемых в случайном порядке без
оповещения о правильности (неправильности) ответа. Для перехода на следующий
вопрос необходимо нажать ссылку «Далее».
|
|
|
8. Просмотр результатов
тестирования и статистических данных
|
В открывшейся странице, где
по итогам ответов на тестовый контроль выставляется оценка, сообщаемая
студенту, можете по желанию повторить обучение или тестовый контроль,
просмотреть статистические данные по результатам обучения или завершить
работу с ЭУП.
|
 
|
|
9. Выход с приложения
|
Для выхода с приложения
нажмите кнопку «Закрыть» в окне обозревателя Internet Explorer.
|
|
Приложение
Class _Default
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e
As System.EventArgs) Handles Button1.Click
Server.Transfer("Регистрация.aspx")SubSub ImageButton1_Click(ByVal
sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles
ImageButton1.Click Server.Transfer("Об_авторе.aspx")SubSub
Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.Load("Page_URL") = Request.RawUrlSubClass
Class РегистрацияSystem.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Button1.ClickTextBox1.Text.Trim.Length > 0 Then("ФИО_обучаемого")
= TextBox1.Text.Transfer("Выбор режимов.aspx")IfSubSub
Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.Load("Page_URL") = Request.RawUrlSubSub ImageButton1_Click(ByVal
sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles
ImageButton1.Click Server.Transfer("Об_авторе.aspx")SubClass
Class Выбор_режимовSystem.Web.UI.PageSub Button2_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Button2.Click.Transfer("Об_авторе.aspx")SubSub Page_Load(ByVal sender
As Object, ByVal e As System.EventArgs) Handles Me.Load("Page_URL") =
Request.RawUrlSubSub LinkButton1_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles LinkButton1.Click("режим_обучения") =
"обучение".Transfer("Все_разделы.aspx")SubSub
LinkButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
LinkButton2.Click("kol_yes") = "0"("kol_no") =
"0"("режим_обучения") =
"Контроль"("номера_вопросов") = ":"("количество_вопросов")
= "0"("диспетч_форма") =
"Диспетч_форма_контроль.aspx".Transfer(CStr(Session("диспетч_форма")))SubSub
LinkButton3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
LinkButton3.Click("kol_yes") = "0"("kol_no") =
"0".Transfer("Статистика.aspx")SubSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Button1.Click.Transfer("Справка.htm")SubClass
Class Все_разделыSystem.Web.UI.PageSub
ImageButton1_Click(ByVal sender As Object, ByVal e As
System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click.Transfer("Об_авторе.aspx")SubSub
Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.Load("Page_URL") = Request.RawUrlSubClass
Class Раздел_1System.Web.UI.PageSub Page_Load(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Me.Load("Page_URL") =
Request.RawUrlSubSub ImageButton1_Click(ByVal sender As Object, ByVal e As
System.Web.UI.ImageClickEventArgs) Handles
ImageButton1.Click.Transfer("Об_авторе.aspx")SubSub LinkButton1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
LinkButton1.Click("номера_вопросов") =
""("диспетч_форма") =
"Диспетч_форма_раздел_1.aspx".Transfer(CStr(Session("диспетч_форма")))SubClass
Class Подраздел 1_1System.Web.UI.PageSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Me.Load("Page_URL") = Request.RawUrlSubSub ImageButton1_Click(ByVal
sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles
ImageButton1.Click.Transfer("Об_авторе.aspx")SubClass
<div>
<p>
<object
classid="clsid:D27CDB6E-AE6D-11CF-96B8-444553540000"
id="obj1"
codebase="#"721976.files/image020.jpg">
Class вопрос1_1System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Button1.ClickRadioButtonList1.Items(0).Selected Then.Text = "Вы ответили
правильно".Text = "Вы ответилинеправильно"IfSubSub
LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
LinkButton1.ClickRadioButtonList1.Items(0).Selected Then("kol_yes") =
CStr(CInt(Session("kol_yes")) + 1)("kol_no") = CStr(CInt(Session("kol_no"))
+ 1)If Server.Transfer(CStr(Session("диспетч_форма")))SubSub
Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class вопрос1_2System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Button1.ClickRadioButtonList1.Items(3).Selected Then.Text = "Вы ответили
правильно".Text = "Вы ответили неправильно"IfSubSub
LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
LinkButton1.ClickRadioButtonList1.Items(3).Selected Then("kol_yes") =
CStr(CInt(Session("kol_yes")) + 1)("kol_no") =
CStr(CInt(Session("kol_no")) +
1)If.Transfer(CStr(Session("диспетч_форма")))SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class вопрос1_3System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button1.Clickst As
String = TextBox1.Textst.IndexOf("Параметры") > -1 Then.Text =
"Вы ответили правильно".Text = "Вы ответили
неправильно"IfSubSub LinkButton1_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles LinkButton1.Clickst As String =
TextBox1.Textst.IndexOf("Параметры") > -1 Then("kol_yes")
= CStr(CInt(Session("kol_yes")) + 1)("kol_no") =
CStr(CInt(Session("kol_no")) +
1)If.Transfer(CStr(Session("диспетч_форма")))SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class вопрос1_4System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button1.ClickCheckBoxList1.Items(0).Selected
And CheckBoxList1.Items(1).Selected And CheckBoxList1.Items(2).Selected And
CheckBoxList1.Items(3).Selected And CheckBoxList1.Items(4).Selected And
CheckBoxList1.Items(5).Selected And (Not CheckBoxList1.Items(6).Selected) Then.Text
= "Вы ответили правильно".Text = "Вы ответили
неправильно"IfSubSub LinkButton1_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles LinkButton1.ClickCheckBoxList1.Items(0).Selected And
CheckBoxList1.Items(1).Selected And CheckBoxList1.Items(2).Selected And
CheckBoxList1.Items(3).Selected And CheckBoxList1.Items(4).Selected And
CheckBoxList1.Items(5).Selected And (Not CheckBoxList1.Items(6).Selected)
Then("kol_yes") = CStr(CInt(Session("kol_yes")) +
1)("kol_no") = CStr(CInt(Session("kol_no")) +
1)If.Transfer(CStr(Session("диспетч_форма")))SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Partial Class вопрос1_5System.Web.UI.PageSub
Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button1.Clicki As Integerflag As Boolean = Falsei = 0 To ListBox2.Items.Count -
1ListBox2.Items(i).Text = ListBox1.SelectedItem.Text Then= TrueIfflag = False
Then ListBox2.Items.Add(ListBox1.SelectedItem).ClearSelection()SubSub
Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button7.Clickst1, st2, st3 As String= ListBox1.Items(1).Text +
ListBox1.Items(2).Text= ListBox1.Items(1).Text= ListBox1.Items(0).Text +
ListBox1.Items(2).Texti As Integerk1, k2, k3 As Integer= 0 : k2 = 0 : k3 =
0flag1, flag2, flag3 As Boolean= False : flag2 = False : flag3 = Falsei = 0 To
ListBox2.Items.Count - 1st1.IndexOf(ListBox2.Items(i).Text) > -1 Then+=
1Ifik1 = ListBox2.Items.Count And k1 = 2 Then flag1 = Truei = 0 To
ListBox3.Items.Count - 1st2.IndexOf(ListBox3.Items(i).Text) > -1 Then+=
1Ifik2 = ListBox3.Items.Count And k2 = 1 Then flag2 = Truei = 0 To
ListBox4.Items.Count - 1st3.IndexOf(ListBox4.Items(i).Text) > -1 Then+=
1Ifik3 = ListBox4.Items.Count And k3 = 2 Then flag3 = Trueflag1 And flag2 And
flag3 Then.Text = "Вы ответили правильно".Text = "Вы ответили
неправильно"IfSubSub Button5_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Button5.Clicki As Integerflag As Boolean = Falsei = 0
To ListBox4.Items.Count - 1ListBox4.Items(i).Text = ListBox1.SelectedItem.Text
Then= TrueIfflag = False Then ListBox4.Items.Add(ListBox1.SelectedItem).ClearSelection()SubSub
Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button2.Click.Items.Remove(ListBox2.SelectedItem)SubSub Button3_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button3.Clicki As
Integerflag As Boolean = Falsei = 0 To ListBox3.Items.Count -
1ListBox3.Items(i).Text = ListBox1.SelectedItem.Text Then= TrueIfflag = False
Then ListBox3.Items.Add(ListBox1.SelectedItem).ClearSelection()SubSub
Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button4.Click.Items.Remove(ListBox3.SelectedItem)SubSub Button6_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Button6.Click.Items.Remove(ListBox4.SelectedItem)SubSub LinkButton1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Clickst1,
st2, st3 As String= ListBox1.Items(1).Text + ListBox1.Items(2).Text=
ListBox1.Items(1).Text= ListBox1.Items(0).Text + ListBox1.Items(2).Texti As
Integerk1, k2, k3 As Integer= 0 : k2 = 0 : k3 = 0flag1, flag2, flag3 As
Boolean= False : flag2 = False : flag3 = Falsei = 0 To ListBox2.Items.Count -
1st1.IndexOf(ListBox2.Items(i).Text) > -1 Then+= 1Ifik1 =
ListBox2.Items.Count And k1 = 2 Then flag1 = Truei = 0 To ListBox3.Items.Count
- 1st2.IndexOf(ListBox3.Items(i).Text) > -1 Then+= 1Ifik2 =
ListBox3.Items.Count And k2 = 1 Then flag2 = Truei = 0 To ListBox4.Items.Count
- 1st3.IndexOf(ListBox4.Items(i).Text) > -1 Then+= 1Ifik3 =
ListBox4.Items.Count And k3 = 2 Then flag3 = Trueflag1 And flag2 And flag3 Then("kol_yes")
= CStr(CInt(Session("kol_yes")) + 1)("kol_no") =
CStr(CInt(Session("kol_no")) +
1)If.Transfer(CStr(Session("диспетч_форма")))SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class вопрос1_6System.Web.UI.PageSub Button3_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button3.ClickListBox2.Items.Count
= ListBox1.Items.Count ThenListBox2.Items(0).Text = ListBox1.Items(3).Text And
ListBox2.Items(1).Text = ListBox1.Items(1).Text And ListBox2.Items(2).Text =
ListBox1.Items(2).Text And ListBox2.Items(3).Text = ListBox1.Items(0).Text Then.Text
= "Вы ответили правильно".Text = "Вы ответили
неправильно"If.Text = "Вы ответили неправильно"IfSubSub
Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button1.Clicki As Integerflag As Boolean = Falsei = 0 To ListBox2.Items.Count -
1ListBox2.Items(i).Text = ListBox1.SelectedItem.Text Then= TrueIfflag = False
Then ListBox2.Items.Add(ListBox1.SelectedItem).ClearSelection()SubSub
Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button9.Click.Items.Remove(ListBox2.SelectedItem)SubSub LinkButton1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
LinkButton1.ClickListBox2.Items.Count = ListBox1.Items.Count
ThenListBox2.Items(0).Text = ListBox1.Items(3).Text And ListBox2.Items(1).Text
= ListBox1.Items(1).Text And ListBox2.Items(2).Text = ListBox1.Items(2).Text
And ListBox2.Items(3).Text = ListBox1.Items(0).Text Then("kol_yes") =
CStr(CInt(Session("kol_yes")) + 1)("kol_no") =
CStr(CInt(Session("kol_no")) + 1)If("kol_no") =
CStr(CInt(Session("kol_no")) +
1)If.Transfer(CStr(Session("диспетч_форма")))SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class вопрос1_7System.Web.UI.PageSub Button3_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Button3.ClickTextBox1.Text = "WinRar" And TextBox2.Text =
"WinRar" And TextBox3.Text = "WinRar" Then.Text = "Вы
ответили правильно".Text = "Вы ответили неправильно"IfSubSub
LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
LinkButton1.ClickTextBox1.Text = "WinRar" And TextBox2.Text =
"WinRar" And TextBox3.Text = "WinRar" Then("kol_yes")
= CStr(CInt(Session("kol_yes")) + 1)("kol_no") =
CStr(CInt(Session("kol_no")) +
1)If.Transfer(CStr(Session("диспетч_форма")))SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Me.LoadCStr(Session("режим_обучения"))
= "Контроль" Then.Visible = False.Visible = False.Visible =
True.Visible = TrueIfSubClass
Class вопрос1_8System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button1.Clickn_select As
Integer =
ListBox1.SelectedIndex.Items.Add(ListBox1.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button2.Clickn_select As Integer = ListBox2.SelectedIndex.Items.Add(ListBox2.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button3.Clickn_select As Integer =
ListBox1.SelectedIndex.Items.Add(ListBox1.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button4.Clickn_select As Integer =
ListBox3.SelectedIndex.Items.Add(ListBox3.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button5.Clickn_select As Integer =
ListBox1.SelectedIndex.Items.Add(ListBox1.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button6.Clickn_select As Integer =
ListBox4.SelectedIndex.Items.Add(ListBox4.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button7.ClickListBox2.Items.Count = 4 And ListBox3.Items.Count = 4 And
ListBox4.Items.Count = 4 ThenListBox2.Items(0).Text = "Выделить
группу" And ListBox2.Items(1).Text = "Выход" And
ListBox2.Items(2).Text = "Открыть архив" And ListBox2.Items(3).Text =
"Установить пароль по умолчанию" And ListBox3.Items(0).Text =
"Добавить файлы в архив" And ListBox3.Items(1).Text = "Извлечь в
указанную папку" And ListBox3.Items(2).Text = "Печать файла" And
ListBox3.Items(3).Text = "Просмотреть файл" And
ListBox4.Items(0).Text = "Восстановить архив(ы)" And
ListBox4.Items(1).Text = "Найти файлы" And ListBox4.Items(2).Text =
"Показать информацию" And ListBox4.Items(3).Text =
"Преобразовать архив(ы)" Then.Text = "Вы ответили
правильно".Text = "Вы ответили неправильно"If.Text = "Вы
ответили неправильно"IfSubSub LinkButton1_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles LinkButton1.ClickListBox2.Items.Count = 4
And ListBox3.Items.Count = 4 And ListBox4.Items.Count = 4
ThenListBox2.Items(0).Text = "Выделить группу" And ListBox2.Items(1).Text
= "Выход" And ListBox2.Items(2).Text = "Открыть архив" And
ListBox2.Items(3).Text = "Установить пароль по умолчанию" And
ListBox3.Items(0).Text = "Добавить файлы в архив" And
ListBox3.Items(1).Text = "Извлечь в указанную папку" And
ListBox3.Items(2).Text = "Печать файла" And ListBox3.Items(3).Text =
"Просмотреть файл" And ListBox4.Items(0).Text = "Восстановить
архив(ы)" And ListBox4.Items(1).Text = "Найти файлы" And
ListBox4.Items(2).Text = "Показать информацию" And
ListBox4.Items(3).Text = "Преобразовать архив(ы)"
Then("Kol_yes") = CStr(CInt(Session("Kol_yes")) +
1)("Kol_yes") = CStr(CInt(Session("Kol_yes")) +
1)If("Kol_no") = CStr(CInt(Session("Kol_no")) +
1)If.Transfer(CStr(Session("диспетч_форма")))SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
winrar интерфейс программа архив
Partial Class вопрос1_9System.Web.UI.PageSub
Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button1.Clickn_select As Integer =
ListBox1.SelectedIndex.Items.Add(ListBox1.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button9.Clickn_select As Integer =
ListBox2.SelectedIndex.Items.Add(ListBox2.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button3.ClickListBox2.Items.Count = 6 ThenListBox2.Items(0).Text =
"Файл" And ListBox2.Items(1).Text = "Команды" And
ListBox2.Items(2).Text = "Операции" And ListBox2.Items(3).Text =
"Избранное" And ListBox2.Items(4).Text = "Параметры" And
ListBox2.Items(5).Text = "Справка" Then.Text = "Вы ответили
правильно".Text = "Вы ответили неправильно"If.Text = "Вы
ответили неправильно"IfSubSub LinkButton1_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles LinkButton1.ClickListBox2.Items.Count = 6
ThenListBox2.Items(0).Text = "Файл" And ListBox2.Items(1).Text =
"Команды" And ListBox2.Items(2).Text = "Операции" And
ListBox2.Items(3).Text = "Избранное" And ListBox2.Items(4).Text =
"Параметры" And ListBox2.Items(5).Text = "Справка"
Then("kol_yes") = CStr(CInt(Session("kol_yes")) +
1)("kol_no") = CStr(CInt(Session("kol_no")) +
1)If("kol_no") = CStr(CInt(Session("kol_no")) +
1)If.Transfer(CStr(Session("диспетч_форма")))SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Me.LoadCStr(Session("режим_обучения"))
= "Контроль" Then.Visible = False.Visible = False.Visible =
True.Visible = TrueIfSubClass
Partial Class вопрос1_10System.Web.UI.PageSub
Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button1.Clickn_select As Integer = ListBox2.SelectedIndexst As String =
ListBox2.SelectedItem.Textn_select > 0 Then.Items(n_select).Text =
ListBox2.Items(n_select - 1).Text.Items(n_select - 1).Text = stIf.SelectedIndex
= n_select - 1SubSub Button9_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Button9.Clickn_select As Integer =
ListBox2.SelectedIndexst As String = ListBox2.SelectedItem.Textn_select <
ListBox2.Items.Count - 1 Then.Items(n_select).Text = ListBox2.Items(n_select +
1).Text.Items(n_select + 1).Text = stIf.SelectedIndex = n_select + 1SubSub
Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button3.ClickListBox2.Items(0).Text = "Установить пароль по
умолчанию" And ListBox2.Items(1).Text = "Печать файла" And
ListBox2.Items(2).Text = "Создать отчёт" And ListBox2.Items(3).Text =
"Упорядочить избранное" And ListBox2.Items(4).Text = "Список
файлов" And ListBox2.Items(5).Text = "Содержание" Then.Text =
"Вы ответили правильно".Text = "Вы ответили
неправильно"IfSubSub LinkButton1_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles LinkButton1.ClickListBox2.Items(0).Text =
"Установить пароль по умолчанию" And ListBox2.Items(1).Text =
"Печать файла" And ListBox2.Items(2).Text = "Создать отчёт"
And ListBox2.Items(3).Text = "Упорядочить избранное" And
ListBox2.Items(4).Text = "Список файлов" And ListBox2.Items(5).Text =
"Содержание" Then("Kol_yes") = CStr(CInt(Session("Kol_yes"))
+ 1)("Kol_no") = CStr(CInt(Session("Kol_no")) + 1)If.Transfer(CStr(Session("диспетч_форма")))SubSub
Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class Раздел_2System.Web.UI.PageSub Page_Load(ByVal sender As
Object, ByVal e As System.EventArgs) Handles Me.Load("Page_URL") =
Request.RawUrlSubSub ImageButton1_Click(ByVal sender As Object, ByVal e As
System.Web.UI.ImageClickEventArgs) Handles
ImageButton1.Click.Transfer("Об_авторе.aspx")SubSub
LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
LinkButton1.Click("номера_вопросов") =
""("диспетч_форма") =
"Диспетч_форма_раздел_2.aspx".Transfer(CStr(Session("диспетч_форма")))SubClass
Class Подраздел 2_1System.Web.UI.PageSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Me.Load("Page_URL") = Request.RawUrlSubSub ImageButton1_Click(ByVal
sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles
ImageButton1.Click.Transfer("Об_авторе.aspx")SubClass
Class вопрос2_1System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Button1.ClickRadioButtonList1.Items(0).Selected Then.Text = "Вы ответили
правильно".Text = "Вы ответили неправильно"IfSubSub LinkButton1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
LinkButton1.ClickRadioButtonList1.Items(0).Selected Then("kol_yes") =
CStr(CInt(Session("kol_yes")) + 1)("kol_no") =
CStr(CInt(Session("kol_no")) + 1)If.Transfer(CStr(Session("диспетч_форма")))SubSub
Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class вопрос2_10System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button1.Clickn_select As
Integer = ListBox2.SelectedIndexst As String =
ListBox2.SelectedItem.Textn_select > 0 Then.Items(n_select).Text =
ListBox2.Items(n_select - 1).Text.Items(n_select - 1).Text = stIf.SelectedIndex
= n_select - 1SubSub Button9_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Button9.Clickn_select As Integer =
ListBox2.SelectedIndexst As String = ListBox2.SelectedItem.Textn_select <
ListBox2.Items.Count - 1 Then.Items(n_select).Text = ListBox2.Items(n_select +
1).Text.Items(n_select + 1).Text = stIf.SelectedIndex = n_select + 1SubSub
Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button3.ClickListBox2.Items(0).Text = "Множитель 1024" And
ListBox2.Items(1).Text = "Множитель 1" And ListBox2.Items(2).Text =
"1048576 байт" And ListBox2.Items(3).Text = "1073741824
байт" And ListBox2.Items(4).Text = "Множитель 1 000 000 000"
Then.Text = "Вы ответили правильно".Text = "Вы ответили
неправильно"IfSubSub LinkButton1_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles LinkButton1.ClickListBox2.Items(0).Text =
"Множитель 1024" And ListBox2.Items(1).Text = "Множитель 1"
And ListBox2.Items(2).Text = "1048576 байт" And
ListBox2.Items(3).Text = "1073741824 байт" And ListBox2.Items(4).Text
= "Множитель 1 000 000 000" Then("Kol_yes") =
CStr(CInt(Session("Kol_yes")) + 1)("Kol_no") =
CStr(CInt(Session("Kol_no")) +
1)If.Transfer(CStr(Session("диспетч_форма")))SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class вопрос2_2System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Button1.ClickRadioButtonList1.Items(1).Selected Then.Text = "Вы ответили
правильно".Text = "Вы ответили неправильно"IfSubSub
LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
LinkButton1.ClickRadioButtonList1.Items(1).Selected Then("kol_yes") =
CStr(CInt(Session("kol_yes")) + 1)("kol_no") =
CStr(CInt(Session("kol_no")) + 1)If.Transfer(CStr(Session("диспетч_форма")))SubSub
Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class вопрос2_3System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button1.Clickst As
String = TextBox1.Textst.IndexOf("RAR") > -1 Then.Text = "Вы
ответили правильно".Text = "Вы ответили неправильно"IfSubSub LinkButton1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Clickst As
String = TextBox1.Textst.IndexOf("RAR") > -1
Then("kol_yes") = CStr(CInt(Session("kol_yes")) +
1)("kol_no") = CStr(CInt(Session("kol_no")) +
1)If.Transfer(CStr(Session("диспетч_форма")))SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class вопрос2_4System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Button1.ClickCheckBoxList1.Items(0).Selected And
CheckBoxList1.Items(1).Selected And CheckBoxList1.Items(2).Selected And
CheckBoxList1.Items(3).Selected And CheckBoxList1.Items(5).Selected And (Not
CheckBoxList1.Items(4).Selected) Then.Text = "Вы ответили
правильно".Text = "Вы ответили неправильно"IfSubSub
LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
LinkButton1.ClickCheckBoxList1.Items(0).Selected And
CheckBoxList1.Items(1).Selected And CheckBoxList1.Items(2).Selected And
CheckBoxList1.Items(3).Selected And CheckBoxList1.Items(5).Selected And (Not
CheckBoxList1.Items(4).Selected) Then("kol_yes") = CStr(CInt(Session("kol_yes"))
+ 1)("kol_no") = CStr(CInt(Session("kol_no")) +
1)If.Transfer(CStr(Session("диспетч_форма")))SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class вопрос2_5System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button1.Clicki As
Integerflag As Boolean = Falsei = 0 To ListBox2.Items.Count -
1ListBox2.Items(i).Text = ListBox1.SelectedItem.Text Then= TrueIfflag = False
Then ListBox2.Items.Add(ListBox1.SelectedItem).ClearSelection()SubSub
Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button2.Click.Items.Remove(ListBox2.SelectedItem)SubSub Button3_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button3.Clicki As
Integerflag As Boolean = Falsei = 0 To ListBox3.Items.Count -
1ListBox3.Items(i).Text = ListBox1.SelectedItem.Text Then= TrueIfflag = False
Then ListBox3.Items.Add(ListBox1.SelectedItem).ClearSelection()SubSub
Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button4.Click.Items.Remove(ListBox3.SelectedItem)SubSub Button5_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button5.Clicki As
Integerflag As Boolean = Falsei = 0 To ListBox4.Items.Count -
1ListBox4.Items(i).Text = ListBox1.SelectedItem.Text Then= TrueIfflag = False
Then ListBox4.Items.Add(ListBox1.SelectedItem).ClearSelection()SubSub
Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button6.Click.Items.Remove(ListBox4.SelectedItem)SubSub Button7_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button7.Clickst1, st2,
st3 As String= ListBox1.Items(0).Text + ListBox1.Items(1).Text +
ListBox1.Items(2).Text= ListBox1.Items(3).Text + ListBox1.Items(4).Text +
ListBox1.Items(5).Text= ListBox1.Items(6).Text + ListBox1.Items(7).Text +
ListBox1.Items(8).Texti As Integerk1, k2, k3 As Integer= 0 : k2 = 0 : k3 =
0flag1, flag2, flag3 As Boolean= False : flag2 = False : flag3 = Falsei = 0 To
ListBox2.Items.Count - 1st1.IndexOf(ListBox2.Items(i).Text) > -1 Then+=
1Ifik1 = ListBox2.Items.Count And k1 = 3 Then flag1 = Truei = 0 To
ListBox3.Items.Count - 1st2.IndexOf(ListBox3.Items(i).Text) > -1 Then+=
1Ifik2 = ListBox3.Items.Count And k2 = 3 Then flag2 = Truei = 0 To
ListBox4.Items.Count - 1st3.IndexOf(ListBox4.Items(i).Text) > -1 Then+=
1Ifik3 = ListBox4.Items.Count And k3 = 3 Then flag3 = Trueflag1 And flag2 And
flag3 Then.Text = "Вы ответили правильно".Text = "Вы ответили
неправильно"IfSubSub LinkButton1_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles LinkButton1.Clickst1, st2, st3 As String=
ListBox1.Items(0).Text + ListBox1.Items(1).Text + ListBox1.Items(2).Text=
ListBox1.Items(3).Text + ListBox1.Items(4).Text + ListBox1.Items(5).Text=
ListBox1.Items(6).Text + ListBox1.Items(7).Text + ListBox1.Items(8).Texti As
Integerk1, k2, k3 As Integer= 0 : k2 = 0 : k3 = 0flag1, flag2, flag3 As Boolean=
False : flag2 = False : flag3 = Falsei = 0 To ListBox2.Items.Count -
1st1.IndexOf(ListBox2.Items(i).Text) > -1 Then+= 1Ifik1 =
ListBox2.Items.Count And k1 = 3 Then flag1 = Truei = 0 To ListBox3.Items.Count
- 1st2.IndexOf(ListBox3.Items(i).Text) > -1 Then+= 1Ifik2 =
ListBox3.Items.Count And k2 = 3 Then flag2 = Truei = 0 To ListBox4.Items.Count
- 1st3.IndexOf(ListBox4.Items(i).Text) > -1 Then+= 1Ifik3 =
ListBox4.Items.Count And k3 = 3 Then flag3 = Trueflag1 And flag2 And flag3
Then("kol_yes") = CStr(CInt(Session("kol_yes")) +
1)("kol_no") = CStr(CInt(Session("kol_no")) +
1)If.Transfer(CStr(Session("диспетч_форма")))SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Me.LoadCStr(Session("режим_обучения"))
= "Контроль" Then.Visible = False.Visible = False.Visible =
True.Visible = TrueIfSubClass
Class вопрос2_6System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button1.Clicki As
Integerflag As Boolean = Falsei = 0 To ListBox2.Items.Count -
1ListBox2.Items(i).Text = ListBox1.SelectedItem.Text Then= TrueIfflag = False
Then ListBox2.Items.Add(ListBox1.SelectedItem).ClearSelection()SubSub
Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button9.Click.Items.Remove(ListBox2.SelectedItem)SubSub Button3_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Button3.ClickListBox2.Items.Count = ListBox1.Items.Count
ThenListBox2.Items(0).Text = ListBox1.Items(2).Text And ListBox2.Items(1).Text
= ListBox1.Items(3).Text And ListBox2.Items(2).Text = ListBox1.Items(0).Text
And ListBox2.Items(3).Text = ListBox1.Items(1).Text Then.Text = "Вы
ответили правильно".Text = "Вы ответили неправильно"If.Text =
"Вы ответили неправильно"IfSubSub LinkButton1_Click(ByVal sender As
Object, ByVal e As System.EventArgs) Handles
LinkButton1.ClickListBox2.Items.Count = ListBox1.Items.Count
ThenListBox2.Items(0).Text = ListBox1.Items(2).Text And ListBox2.Items(1).Text
= ListBox1.Items(3).Text And ListBox2.Items(2).Text = ListBox1.Items(0).Text
And ListBox2.Items(3).Text = ListBox1.Items(1).Text Then("kol_yes") =
CStr(CInt(Session("kol_yes")) + 1)("kol_no") =
CStr(CInt(Session("kol_no")) + 1)If("kol_no") =
CStr(CInt(Session("kol_no")) + 1)If.Transfer(CStr(Session("диспетч_форма")))SubSub
Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class вопрос2_7System.Web.UI.PageSub Button3_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Button3.ClickTextBox4.Text = "архивами" And TextBox5.Text =
"архива" And TextBox6.Text = "архиве" Then.Text = "Вы
ответили правильно".Text = "Вы ответили неправильно"IfSubSub
LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
LinkButton1.ClickTextBox4.Text = "архивами" And TextBox5.Text =
"архива" And TextBox6.Text = "архиве"
Then("kol_yes") = CStr(CInt(Session("kol_yes")) +
1)("kol_no") = CStr(CInt(Session("kol_no")) + 1)If.Transfer(CStr(Session("диспетч_форма")))SubSub
Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class вопрос2_8System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button1.Clickn_select As
Integer =
ListBox1.SelectedIndex.Items.Add(ListBox1.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button2.Clickn_select As Integer =
ListBox2.SelectedIndex.Items.Add(ListBox2.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button3.Clickn_select As Integer =
ListBox1.SelectedIndex.Items.Add(ListBox1.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button4.Clickn_select As Integer =
ListBox3.SelectedIndex.Items.Add(ListBox3.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button5.Clickn_select As Integer =
ListBox1.SelectedIndex.Items.Add(ListBox1.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button6.Clickn_select As Integer = ListBox4.SelectedIndex.Items.Add(ListBox4.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button7.ClickListBox2.Items.Count = 3 And ListBox3.Items.Count = 3 And
ListBox4.Items.Count = 3 ThenListBox2.Items(0).Text =
"Автоопределение" And ListBox2.Items(1).Text = "CD700" And
ListBox2.Items(2).Text = "Zip100" And ListBox4.Items(0).Text =
"Добавить электронную подпись" And ListBox4.Items(1).Text =
"Заблокировать архив" And ListBox4.Items(2).Text = "Создать
непрерывный архив" And ListBox3.Items(0).Text = "Добавить с
обновлением файлов" And ListBox3.Items(1).Text = "Обновить
существующие файлы" And ListBox3.Items(2).Text = "Синхронизировать
содержимое архива" Then.Text = "Вы ответили правильно".Text =
"Вы ответили неправильно"If.Text = "Вы ответили
неправильно"IfSubSub LinkButton1_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles LinkButton1.ClickListBox2.Items.Count = 3 And
ListBox3.Items.Count = 3 And ListBox4.Items.Count = 3 ThenListBox2.Items(0).Text
= "Автоопределение" And ListBox2.Items(1).Text = "CD700"
And ListBox2.Items(2).Text = "Zip100" And ListBox4.Items(0).Text =
"Добавить электронную подпись" And ListBox4.Items(1).Text =
"Заблокировать архив" And ListBox4.Items(2).Text = "Создать
непрерывный архив" And ListBox3.Items(0).Text = "Добавить с
обновлением файлов" And ListBox3.Items(1).Text = "Обновить
существующие файлы" And ListBox3.Items(2).Text = "Синхронизировать
содержимое архива" Then("Kol_yes") =
CStr(CInt(Session("Kol_yes")) + 1)("Kol_yes") =
CStr(CInt(Session("Kol_yes")) + 1)If("Kol_no") =
CStr(CInt(Session("Kol_no")) +
1)If.Transfer(CStr(Session("диспетч_форма")))SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class вопрос2_9System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button1.Clickn_select As
Integer =
ListBox1.SelectedIndex.Items.Add(ListBox1.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button9.Clickn_select As Integer = ListBox2.SelectedIndex.Items.Add(ListBox2.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button3.ClickListBox2.Items.Count = 5 ThenListBox2.Items(0).Text =
"Выделить архив" And ListBox2.Items(1).Text = "Выбрать меню
Операции" And ListBox2.Items(2).Text = "В меню Операции выбрать
команду Восстановить архив(ы)" And ListBox2.Items(3).Text = "В
диалоговом окне Восстановление выбрать тип архива, который необходимо восстановить"
And ListBox2.Items(4).Text = "Нажать кнопку ОК" Then.Text = "Вы
ответили правильно".Text = "Вы ответили неправильно"If.Text =
"Вы ответили неправильно"IfSubSub LinkButton1_Click(ByVal sender As
Object, ByVal e As System.EventArgs) Handles LinkButton1.ClickListBox2.Items.Count
= 5 ThenListBox2.Items(0).Text = "Выделить архив" And
ListBox2.Items(1).Text = "Выбрать меню Операции" And
ListBox2.Items(2).Text = "В меню Операции выбрать команду Восстановить
архив(ы)" And ListBox2.Items(3).Text = "В диалоговом окне
Восстановление выбрать тип архива, который необходимо восстановить" And
ListBox2.Items(4).Text = "Нажать кнопку ОК" Then("kol_yes")
= CStr(CInt(Session("kol_yes")) + 1)("kol_no") =
CStr(CInt(Session("kol_no")) + 1)If("kol_no") =
CStr(CInt(Session("kol_no")) + 1)If.Transfer(CStr(Session("диспетч_форма")))SubSub
Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class Раздел_3System.Web.UI.PageSub Page_Load(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Me.Load("Page_URL") =
Request.RawUrlSubSub ImageButton1_Click(ByVal sender As Object, ByVal e As
System.Web.UI.ImageClickEventArgs) Handles
ImageButton1.Click.Transfer("Об_авторе.aspx")SubSub
LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
LinkButton1.Click("номера_вопросов") =
""("диспетч_форма") = "Диспетч_форма_раздел_3.aspx".Transfer(CStr(Session("диспетч_форма")))SubClass
Class Подраздел 3_1System.Web.UI.PageSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Me.Load("Page_URL") = Request.RawUrlSubSub ImageButton1_Click(ByVal
sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles
ImageButton1.Click.Transfer("Об_авторе.aspx")SubClass
Class вопрос3_1System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Button1.ClickRadioButtonList1.Items(1).Selected Then.Text = "Вы ответили
правильно".Text = "Вы ответили неправильно"IfSubSub
LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
LinkButton1.ClickRadioButtonList1.Items(0).Selected Then("kol_yes") =
CStr(CInt(Session("kol_yes")) + 1)("kol_no") =
CStr(CInt(Session("kol_no")) +
1)If.Transfer(CStr(Session("диспетч_форма")))SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class вопрос3_10System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button1.Clickn_select As
Integer = ListBox2.SelectedIndexst As String =
ListBox2.SelectedItem.Textn_select > 0 Then.Items(n_select).Text =
ListBox2.Items(n_select - 1).Text.Items(n_select - 1).Text = stIf.SelectedIndex
= n_select - 1SubSub Button9_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Button9.Clickn_select As Integer =
ListBox2.SelectedIndexst As String = ListBox2.SelectedItem.Textn_select <
ListBox2.Items.Count - 1 Then.Items(n_select).Text = ListBox2.Items(n_select +
1).Text.Items(n_select + 1).Text = stIf.SelectedIndex = n_select + 1SubSub
Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button3.ClickListBox2.Items(0).Text = "Сохранять файловые потоки" And
ListBox2.Items(1).Text = "Делать паузу после каждого тома" And
ListBox2.Items(2).Text = "Архивировать в фоновом режиме" And
ListBox2.Items(3).Text = "Открытие диалога Дополнительные параметры
сжатия" And ListBox2.Items(4).Text = "Эта кнопка позволяет установить
пароль для шифрования файлов" And ListBox2.Items(5).Text = "Позволяет
выбрать модуль самораспаковки " Then.Text = "Вы ответили
правильно".Text = "Вы ответили неправильно"IfSubSub
LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
LinkButton1.ClickListBox2.Items(0).Text = "Сохранять файловые потоки"
And ListBox2.Items(1).Text = "Делать паузу после каждого тома" And
ListBox2.Items(2).Text = "Архивировать в фоновом режиме" And
ListBox2.Items(3).Text = "Открытие диалога Дополнительные параметры
сжатия" And ListBox2.Items(4).Text = "Эта кнопка позволяет установить
пароль для шифрования файлов" And ListBox2.Items(5).Text = "Позволяет
выбрать модуль самораспаковки " Then("Kol_yes") =
CStr(CInt(Session("Kol_yes")) + 1)("Kol_no") =
CStr(CInt(Session("Kol_no")) + 1)If.Transfer(CStr(Session("диспетч_форма")))SubSub
Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class вопрос3_2System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Button1.ClickRadioButtonList1.Items(2).Selected Then.Text = "Вы ответили
правильно".Text = "Вы ответили неправильно"IfSubSub
LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
LinkButton1.ClickRadioButtonList1.Items(2).Selected Then("kol_yes") =
CStr(CInt(Session("kol_yes")) + 1)("kol_no") = CStr(CInt(Session("kol_no"))
+ 1)If.Transfer(CStr(Session("диспетч_форма")))SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class вопрос3_3System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button1.Clickst As
String = TextBox1.Textst.IndexOf("Гбайт") > -1 Then.Text =
"Вы ответили правильно".Text = "Вы ответили неправильно"IfSubSub
LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
LinkButton1.Clickst As String = TextBox1.Textst.IndexOf("Гбайт") >
-1 Then("kol_yes") = CStr(CInt(Session("kol_yes")) +
1)("kol_no") = CStr(CInt(Session("kol_no")) +
1)If.Transfer(CStr(Session("диспетч_форма")))SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class вопрос3_4System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Button1.ClickCheckBoxList1.Items(0).Selected And
CheckBoxList1.Items(3).Selected And CheckBoxList1.Items(2).Selected And (Not
CheckBoxList1.Items(1).Selected) Then.Text = "Вы ответили
правильно".Text = "Вы ответили неправильно"IfSubSub
LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
LinkButton1.ClickCheckBoxList1.Items(0).Selected And
CheckBoxList1.Items(3).Selected And CheckBoxList1.Items(2).Selected And
(CheckBoxList1.Items(1).Selected) Then("kol_yes") =
CStr(CInt(Session("kol_yes")) + 1)("kol_no") =
CStr(CInt(Session("kol_no")) + 1)If.Transfer(CStr(Session("диспетч_форма")))SubSub
Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible =
TrueIfSubClassClass вопрос3_5System.Web.UI.PageSub Button1_Click(ByVal sender
As Object, ByVal e As System.EventArgs) Handles Button1.Clicki As Integerflag
As Boolean = Falsei = 0 To ListBox2.Items.Count - 1ListBox2.Items(i).Text =
ListBox1.SelectedItem.Text Then= TrueIfflag = False Then
ListBox2.Items.Add(ListBox1.SelectedItem).ClearSelection()SubSub
Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button2.Click.Items.Remove(ListBox2.SelectedItem)SubSub Button3_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button3.Clicki As
Integerflag As Boolean = Falsei = 0 To ListBox3.Items.Count -
1ListBox3.Items(i).Text = ListBox1.SelectedItem.Text Then= TrueIfflag = False
Then ListBox3.Items.Add(ListBox1.SelectedItem).ClearSelection()SubSub
Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button4.Click.Items.Remove(ListBox3.SelectedItem)SubSub Button5_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button5.Clicki As
Integerflag As Boolean = Falsei = 0 To ListBox4.Items.Count - 1ListBox4.Items(i).Text
= ListBox1.SelectedItem.Text Then= TrueIfflag = False Then
ListBox4.Items.Add(ListBox1.SelectedItem).ClearSelection()SubSub
Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button6.Click.Items.Remove(ListBox4.SelectedItem)SubSub Button7_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button7.Clickst1, st2,
st3 As String= ListBox1.Items(2).Text + ListBox1.Items(5).Text=
ListBox1.Items(0).Text + ListBox1.Items(1).Text + ListBox1.Items(4).Text=
ListBox1.Items(3).Text + ListBox1.Items(6).Text + ListBox1.Items(7).Texti As
Integerk1, k2, k3 As Integer= 0 : k2 = 0 : k3 = 0flag1, flag2, flag3 As
Boolean= False : flag2 = False : flag3 = Falsei = 0 To ListBox2.Items.Count -
1st1.IndexOf(ListBox2.Items(i).Text) > -1 Then+= 1Ifik1 =
ListBox2.Items.Count And k1 = 2 Then flag1 = Truei = 0 To ListBox3.Items.Count
- 1st2.IndexOf(ListBox3.Items(i).Text) > -1 Then+= 1Ifik2 =
ListBox3.Items.Count And k2 = 3 Then flag2 = Truei = 0 To ListBox4.Items.Count
- 1st3.IndexOf(ListBox4.Items(i).Text) > -1 Then+= 1Ifik3 =
ListBox4.Items.Count And k3 = 3 Then flag3 = Trueflag1 And flag2 And flag3
Then.Text = "Вы ответили правильно".Text = "Вы ответили
неправильно"IfSubSub LinkButton1_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles LinkButton1.Clickst1, st2, st3 As String=
ListBox1.Items(2).Text + ListBox1.Items(5).Text= ListBox1.Items(0).Text +
ListBox1.Items(1).Text + ListBox1.Items(4).Text= ListBox1.Items(3).Text +
ListBox1.Items(6).Text + ListBox1.Items(7).Texti As Integerk1, k2, k3 As
Integer= 0 : k2 = 0 : k3 = 0flag1, flag2, flag3 As Boolean= False : flag2 =
False : flag3 = Falsei = 0 To ListBox2.Items.Count -
1st1.IndexOf(ListBox2.Items(i).Text) > -1 Then+= 1Ifik1 =
ListBox2.Items.Count And k1 = 2 Then flag1 = Truei = 0 To ListBox3.Items.Count
- 1st2.IndexOf(ListBox3.Items(i).Text) > -1 Then+= 1Ifik2 =
ListBox3.Items.Count And k2 = 3 Then flag2 = Truei = 0 To ListBox4.Items.Count
- 1st3.IndexOf(ListBox4.Items(i).Text) > -1 Then+= 1Ifik3 = ListBox4.Items.Count
And k3 = 3 Then flag3 = Trueflag1 And flag2 And flag3 Then("kol_yes")
= CStr(CInt(Session("kol_yes")) + 1)("kol_no") =
CStr(CInt(Session("kol_no")) +
1)If.Transfer(CStr(Session("диспетч_форма")))SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class вопрос3_6System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button1.Clicki As
Integerflag As Boolean = Falsei = 0 To ListBox2.Items.Count -
1ListBox2.Items(i).Text = ListBox1.SelectedItem.Text Then= TrueIfflag = False
Then ListBox2.Items.Add(ListBox1.SelectedItem).ClearSelection()SubSub
Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button9.Click.Items.Remove(ListBox2.SelectedItem)SubSub Button3_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Button3.ClickListBox2.Items.Count = ListBox1.Items.Count
ThenListBox2.Items(0).Text = ListBox1.Items(4).Text And ListBox2.Items(1).Text
= ListBox1.Items(0).Text And ListBox2.Items(2).Text = ListBox1.Items(3).Text
And ListBox2.Items(3).Text = ListBox1.Items(1).Text And ListBox2.Items(4).Text
= ListBox1.Items(2).Text Then.Text = "Вы ответили правильно".Text =
"Вы ответили неправильно"If.Text = "Вы ответили
неправильно"IfSubSub LinkButton1_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles LinkButton1.ClickListBox2.Items.Count = ListBox1.Items.Count
ThenListBox2.Items(0).Text = ListBox1.Items(4).Text And ListBox2.Items(1).Text
= ListBox1.Items(0).Text And ListBox2.Items(2).Text = ListBox1.Items(3).Text
And ListBox2.Items(3).Text = ListBox1.Items(1).Text And ListBox2.Items(4).Text
= ListBox1.Items(2).Text Then("kol_yes") =
CStr(CInt(Session("kol_yes")) + 1)("kol_no") =
CStr(CInt(Session("kol_no")) + 1)If("kol_no") =
CStr(CInt(Session("kol_no")) + 1)If.Transfer(CStr(Session("диспетч_форма")))SubSub
Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class вопрос3_7System.Web.UI.PageSub Button3_Click(ByVal sender
As Object, ByVal e As System.EventArgs) Handles Button3.ClickTextBox1.Text =
"ZIP" And TextBox2.Text = "ZIP" And TextBox3.Text =
"ZIP" Then.Text = "Вы ответили правильно".Text = "Вы
ответили неправильно"IfSubSub LinkButton1_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles LinkButton1.ClickTextBox1.Text =
"ZIP" And TextBox2.Text = "ZIP" And TextBox3.Text =
"ZIP" Then("kol_yes") =
CStr(CInt(Session("kol_yes")) + 1)("kol_no") =
CStr(CInt(Session("kol_no")) + 1)If.Transfer(CStr(Session("диспетч_форма")))SubSub
Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class вопрос3_8System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button1.Clickn_select As
Integer =
ListBox1.SelectedIndex.Items.Add(ListBox1.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button2.Clickn_select As Integer =
ListBox2.SelectedIndex.Items.Add(ListBox2.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button3.Clickn_select As Integer =
ListBox1.SelectedIndex.Items.Add(ListBox1.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button4.Clickn_select As Integer =
ListBox3.SelectedIndex.Items.Add(ListBox3.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button5.Clickn_select As Integer = ListBox1.SelectedIndex.Items.Add(ListBox1.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button6.Clickn_select As Integer =
ListBox4.SelectedIndex.Items.Add(ListBox4.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button7.ClickListBox2.Items.Count = 2 And ListBox3.Items.Count = 3 And
ListBox4.Items.Count = 3 ThenListBox2.Items(0).Text = "Сохранять данные о
правах доступа" And ListBox2.Items(1).Text = "Сохранять файловые
потоки" And ListBox4.Items(0).Text = "Архивировать в фоновом
режиме" And ListBox4.Items(1).Text = "Ждать, если работает другая
копия WinRAR" And ListBox4.Items(2).Text = "По окончании операции
выключить ПК" And ListBox3.Items(0).Text = "Делать паузу после
каждого тома" And ListBox3.Items(1).Text = "Старый стиль именования
томов" And ListBox3.Items(2).Text = "Томов для восстановления"
Then.Text = "Вы ответили правильно".Text = "Вы ответили
неправильно"If.Text = "Вы ответили неправильно"IfSubSub
LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
LinkButton1.ClickListBox2.Items.Count = 2 And ListBox3.Items.Count = 3 And
ListBox4.Items.Count = 3 ThenListBox2.Items(0).Text = "Сохранять данные о
правах доступа" And ListBox2.Items(1).Text = "Сохранять файловые
потоки" And ListBox4.Items(0).Text = "Архивировать в фоновом
режиме" And ListBox4.Items(1).Text = "Ждать, если работает другая
копия WinRAR" And ListBox4.Items(2).Text = "По окончании операции
выключить ПК" And ListBox3.Items(0).Text = "Делать паузу после
каждого тома" And ListBox3.Items(1).Text = "Старый стиль именования
томов" And ListBox3.Items(2).Text = "Томов для восстановления"
Then("Kol_yes") = CStr(CInt(Session("Kol_yes")) +
1)("Kol_yes") = CStr(CInt(Session("Kol_yes")) +
1)If("Kol_no") = CStr(CInt(Session("Kol_no")) +
1)If.Transfer(CStr(Session("диспетч_форма")))SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Me.LoadCStr(Session("режим_обучения"))
= "Контроль" Then.Visible = False.Visible = False.Visible =
True.Visible = TrueIfSubClass
Class вопрос3_9System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button1.Clickn_select As
Integer =
ListBox1.SelectedIndex.Items.Add(ListBox1.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button9.Clickn_select As Integer =
ListBox2.SelectedIndex.Items.Add(ListBox2.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button3.ClickListBox2.Items.Count = 5 ThenListBox2.Items(0).Text = "Выделить
файл (папку), которую необходимо зааархивировать" And
ListBox2.Items(1).Text = "Выбрать меню Команды" And
ListBox2.Items(2).Text = "В меню Команды выбрать команду Добавить файлы в
архив" And ListBox2.Items(3).Text = "В появившемся диалоговом окне
поставить галочку Создать непрерывный архив" And ListBox2.Items(4).Text =
"Нажать кнопку ОК" Then.Text = "Вы ответили правильно".Text
= "Вы ответили неправильно"If.Text = "Вы ответили
неправильно"IfSubSub LinkButton1_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles LinkButton1.ClickListBox2.Items.Count = 5
ThenListBox2.Items(0).Text = "Выделить файл (папку), которую необходимо
зааархивировать" And ListBox2.Items(1).Text = "Выбрать меню
Команды" And ListBox2.Items(2).Text = "В меню Команды выбрать команду
Добавить файлы в архив" And ListBox2.Items(3).Text = "В появившемся
диалоговом окне поставить галочку Создать непрерывный архив" And
ListBox2.Items(4).Text = "Нажать кнопку ОК" Then("Kol_yes")
= CStr(CInt(Session("Kol_yes")) + 1)("Kol_no") = CStr(CInt(Session("Kol_no"))
+ 1)If("Kol_no") = CStr(CInt(Session("Kol_no")) +
1)If.Transfer(CStr(Session("диспетч_форма")))SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Me.LoadCStr(Session("режим_обучения"))
= "Контроль" Then.Visible = False.Visible = False.Visible =
True.Visible = TrueIfSubClass
Partial Class вопрос3_5System.Web.UI.PageSub Button1_Click(ByVal sender
As Object, ByVal e As System.EventArgs) Handles Button1.Clicki As Integerflag
As Boolean = Falsei = 0 To ListBox2.Items.Count - 1ListBox2.Items(i).Text =
ListBox1.SelectedItem.Text Then= TrueIfflag = False Then
ListBox2.Items.Add(ListBox1.SelectedItem).ClearSelection()SubSub
Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button2.Click.Items.Remove(ListBox2.SelectedItem)SubSub Button3_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button3.Clicki As
Integerflag As Boolean = Falsei = 0 To ListBox3.Items.Count -
1ListBox3.Items(i).Text = ListBox1.SelectedItem.Text Then= TrueIfflag = False
Then ListBox3.Items.Add(ListBox1.SelectedItem).ClearSelection()SubSub
Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button4.Click.Items.Remove(ListBox3.SelectedItem)SubSub Button5_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button5.Clicki As
Integerflag As Boolean = Falsei = 0 To ListBox4.Items.Count -
1ListBox4.Items(i).Text = ListBox1.SelectedItem.Text Then= TrueIfflag = False
Then ListBox4.Items.Add(ListBox1.SelectedItem).ClearSelection()SubSub
Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button6.Click.Items.Remove(ListBox4.SelectedItem)SubSub Button7_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button7.Clickst1, st2,
st3 As String= ListBox1.Items(2).Text + ListBox1.Items(5).Text=
ListBox1.Items(0).Text + ListBox1.Items(1).Text + ListBox1.Items(4).Text=
ListBox1.Items(3).Text + ListBox1.Items(6).Text + ListBox1.Items(7).Texti As
Integerk1, k2, k3 As Integer= 0 : k2 = 0 : k3 = 0flag1, flag2, flag3 As
Boolean= False : flag2 = False : flag3 = Falsei = 0 To ListBox2.Items.Count -
1st1.IndexOf(ListBox2.Items(i).Text) > -1 Then+= 1Ifik1 =
ListBox2.Items.Count And k1 = 2 Then flag1 = Truei = 0 To ListBox3.Items.Count
- 1st2.IndexOf(ListBox3.Items(i).Text) > -1 Then+= 1Ifik2 =
ListBox3.Items.Count And k2 = 3 Then flag2 = Truei = 0 To ListBox4.Items.Count
- 1st3.IndexOf(ListBox4.Items(i).Text) > -1 Then+= 1Ifik3 =
ListBox4.Items.Count And k3 = 3 Then flag3 = Trueflag1 And flag2 And flag3
Then.Text = "Вы ответили правильно".Text = "Вы ответили
неправильно"IfSubSub LinkButton1_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles LinkButton1.Clickst1, st2, st3 As String= ListBox1.Items(2).Text
+ ListBox1.Items(5).Text= ListBox1.Items(0).Text + ListBox1.Items(1).Text +
ListBox1.Items(4).Text= ListBox1.Items(3).Text + ListBox1.Items(6).Text +
ListBox1.Items(7).Texti As Integerk1, k2, k3 As Integer= 0 : k2 = 0 : k3 =
0flag1, flag2, flag3 As Boolean= False : flag2 = False : flag3 = Falsei = 0 To
ListBox2.Items.Count - 1st1.IndexOf(ListBox2.Items(i).Text) > -1 Then+=
1Ifik1 = ListBox2.Items.Count And k1 = 2 Then flag1 = Truei = 0 To
ListBox3.Items.Count - 1st2.IndexOf(ListBox3.Items(i).Text) > -1 Then+= 1Ifik2
= ListBox3.Items.Count And k2 = 3 Then flag2 = Truei = 0 To
ListBox4.Items.Count - 1st3.IndexOf(ListBox4.Items(i).Text) > -1 Then+=
1Ifik3 = ListBox4.Items.Count And k3 = 3 Then flag3 = Trueflag1 And flag2 And
flag3 Then("kol_yes") = CStr(CInt(Session("kol_yes")) +
1)("kol_no") = CStr(CInt(Session("kol_no")) +
1)If.Transfer(CStr(Session("диспетч_форма")))SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class Раздел_4System.Web.UI.PageSub Page_Load(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Me.Load("Page_URL") =
Request.RawUrlSubSub ImageButton1_Click(ByVal sender As Object, ByVal e As
System.Web.UI.ImageClickEventArgs) Handles
ImageButton1.Click.Transfer("Об_авторе.aspx")SubSub
LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
LinkButton1.Click("номера_вопросов") = ""("диспетч_форма")
=
"Диспетч_форма_раздел_3.aspx".Transfer(CStr(Session("диспетч_форма")))SubClass
Class Подраздел 4_1System.Web.UI.PageSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Me.Load("Page_URL")
= Request.RawUrlSubSub ImageButton1_Click(ByVal sender As Object, ByVal e As
System.Web.UI.ImageClickEventArgs) Handles
ImageButton1.Click.Transfer("Об_авторе.aspx")SubClass
Class вопрос4_1System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Button1.ClickRadioButtonList1.Items(0).Selected Then.Text = "Вы ответили
правильно".Text = "Вы ответили неправильно"IfSubSub
LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
LinkButton1.ClickRadioButtonList1.Items(0).Selected Then("kol_yes") =
CStr(CInt(Session("kol_yes")) + 1)("kol_no") =
CStr(CInt(Session("kol_no")) +
1)If.Transfer(CStr(Session("диспетч_форма")))SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class вопрос4_10System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button1.Clickn_select As
Integer = ListBox2.SelectedIndexst As String =
ListBox2.SelectedItem.Textn_select > 0 Then.Items(n_select).Text =
ListBox2.Items(n_select - 1).Text.Items(n_select - 1).Text = stIf.SelectedIndex
= n_select - 1SubSub Button9_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Button9.Clickn_select As Integer =
ListBox2.SelectedIndexst As String = ListBox2.SelectedItem.Textn_select <
ListBox2.Items.Count - 1 Then.Items(n_select).Text = ListBox2.Items(n_select +
1).Text.Items(n_select + 1).Text = stIf.SelectedIndex = n_select + 1SubSub
Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button3.ClickListBox2.Items(0).Text = "Выбор типа архива, для которого
WinRAR будет сконфигурирован в Windows как средство просмотра" And
ListBox2.Items(1).Text = "Указание дополнительных файлов расширения для
архивных форматов, поддерживаемых WinRAR" And ListBox2.Items(2).Text =
"Создание групп программ WinRAR" And ListBox2.Items(3).Text =
"Использование контекстного меню для обработки архивов, поддерживаемых
WinRAR." Then.Text = "Вы ответили правильно".Text = "Вы
ответили неправильно"IfSubSub LinkButton1_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles LinkButton1.ClickListBox2.Items(0).Text =
"Выбор типа архива, для которого WinRAR будет сконфигурирован в Windows
как средство просмотра" And ListBox2.Items(1).Text = "Указание
дополнительных файлов расширения для архивных форматов, поддерживаемых
WinRAR" And ListBox2.Items(2).Text = "Создание групп программ
WinRAR" And ListBox2.Items(3).Text = "Использование контекстного меню
для обработки архивов, поддерживаемых WinRAR." Then("Kol_yes") =
CStr(CInt(Session("Kol_yes")) + 1)("Kol_no") = CStr(CInt(Session("Kol_no"))
+ 1)If.Transfer(CStr(Session("диспетч_форма")))SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class вопрос4_2System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Button1.ClickRadioButtonList1.Items(1).Selected Then.Text = "Вы ответили
правильно".Text = "Вы ответили неправильно"IfSubSub
LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
LinkButton1.ClickRadioButtonList1.Items(1).Selected Then("kol_yes") =
CStr(CInt(Session("kol_yes")) + 1)("kol_no") =
CStr(CInt(Session("kol_no")) +
1)If.Transfer(CStr(Session("диспетч_форма")))SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class вопрос4_3System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button1.Clickst As
String = TextBox1.Textst.IndexOf("Извлечь в текущую папку") > -1
Then.Text = "Вы ответили правильно".Text = "Вы ответили
неправильно"IfSubSub LinkButton1_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles LinkButton1.Clickst As String =
TextBox1.Textst.IndexOf("Извлечь в текущую папку") > -1
Then("kol_yes") = CStr(CInt(Session("kol_yes")) +
1)("kol_no") = CStr(CInt(Session("kol_no")) +
1)If.Transfer(CStr(Session("диспетч_форма")))SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Me.LoadCStr(Session("режим_обучения"))
= "Контроль" Then.Visible = False.Visible = False.Visible =
True.Visible = TrueIfSubClass
Class вопрос4_4System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button1.ClickCheckBoxList1.Items(0).Selected
And CheckBoxList1.Items(1).Selected And CheckBoxList1.Items(5).Selected And
CheckBoxList1.Items(3).Selected And CheckBoxList1.Items(4).Selected And (Not
CheckBoxList1.Items(2).Selected) Then.Text = "Вы ответили правильно".Text
= "Вы ответили неправильно"IfSubSub LinkButton1_Click(ByVal sender As
Object, ByVal e As System.EventArgs) Handles
LinkButton1.ClickCheckBoxList1.Items(0).Selected And
CheckBoxList1.Items(1).Selected And CheckBoxList1.Items(5).Selected And CheckBoxList1.Items(3).Selected
And CheckBoxList1.Items(4).Selected And (Not CheckBoxList1.Items(2).Selected)
Then("kol_yes") = CStr(CInt(Session("kol_yes")) +
1)("kol_no") = CStr(CInt(Session("kol_no")) +
1)If.Transfer(CStr(Session("диспетч_форма")))SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Partial Class вопрос4_5System.Web.UI.PageSub
Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button1.Clicki As Integerflag As Boolean = Falsei = 0 To ListBox2.Items.Count -
1ListBox2.Items(i).Text = ListBox1.SelectedItem.Text Then= TrueIfflag = False
Then ListBox2.Items.Add(ListBox1.SelectedItem).ClearSelection()SubSub
Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button2.Click.Items.Remove(ListBox2.SelectedItem)SubSub Button3_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button3.Clicki As
Integerflag As Boolean = Falsei = 0 To ListBox3.Items.Count -
1ListBox3.Items(i).Text = ListBox1.SelectedItem.Text Then= TrueIfflag = False
Then ListBox3.Items.Add(ListBox1.SelectedItem).ClearSelection()SubSub
Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button4.Click.Items.Remove(ListBox3.SelectedItem)SubSub Button5_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button5.Clicki As
Integerflag As Boolean = Falsei = 0 To ListBox4.Items.Count -
1ListBox4.Items(i).Text = ListBox1.SelectedItem.Text Then= TrueIfflag = False
Then ListBox4.Items.Add(ListBox1.SelectedItem).ClearSelection()SubSub
Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button6.Click.Items.Remove(ListBox4.SelectedItem)SubSub Button7_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button7.Clickst1, st2,
st3 As String= ListBox1.Items(1).Text + ListBox1.Items(5).Text +
ListBox1.Items(9).Text= ListBox1.Items(0).Text + ListBox1.Items(2).Text +
ListBox1.Items(3).Text= ListBox1.Items(4).Text + ListBox1.Items(6).Text +
ListBox1.Items(7).Text + ListBox1.Items(8).Texti As Integerk1, k2, k3 As
Integer= 0 : k2 = 0 : k3 = 0flag1, flag2, flag3 As Boolean= False : flag2 =
False : flag3 = Falsei = 0 To ListBox2.Items.Count -
1st1.IndexOf(ListBox2.Items(i).Text) > -1 Then+= 1Ifik1 =
ListBox2.Items.Count And k1 = 3 Then flag1 = Truei = 0 To ListBox3.Items.Count
- 1st2.IndexOf(ListBox3.Items(i).Text) > -1 Then+= 1Ifik2 = ListBox3.Items.Count
And k2 = 3 Then flag2 = Truei = 0 To ListBox4.Items.Count -
1st3.IndexOf(ListBox4.Items(i).Text) > -1 Then+= 1Ifik3 =
ListBox4.Items.Count And k3 = 4 Then flag3 = Trueflag1 And flag2 And flag3
Then.Text = "Вы ответили правильно".Text = "Вы ответили неправильно"IfSubSub
LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
LinkButton1.Clickst1, st2, st3 As String= ListBox1.Items(1).Text +
ListBox1.Items(5).Text + ListBox1.Items(9).Text= ListBox1.Items(0).Text +
ListBox1.Items(2).Text + ListBox1.Items(3).Text= ListBox1.Items(4).Text +
ListBox1.Items(6).Text + ListBox1.Items(7).Text + ListBox1.Items(8).Texti As
Integerk1, k2, k3 As Integer= 0 : k2 = 0 : k3 = 0flag1, flag2, flag3 As
Boolean= False : flag2 = False : flag3 = Falsei = 0 To ListBox2.Items.Count -
1st1.IndexOf(ListBox2.Items(i).Text) > -1 Then+= 1Ifik1 =
ListBox2.Items.Count And k1 = 3 Then flag1 = Truei = 0 To ListBox3.Items.Count
- 1st2.IndexOf(ListBox3.Items(i).Text) > -1 Then+= 1Ifik2 =
ListBox3.Items.Count And k2 = 3 Then flag2 = Truei = 0 To ListBox4.Items.Count
- 1st3.IndexOf(ListBox4.Items(i).Text) > -1 Then+= 1Ifik3 =
ListBox4.Items.Count And k3 = 4 Then flag3 = Trueflag1 And flag2 And flag3
Then("kol_yes") = CStr(CInt(Session("kol_yes")) + 1)("kol_no")
= CStr(CInt(Session("kol_no")) +
1)If.Transfer(CStr(Session("диспетч_форма")))SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class вопрос4_6System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button1.Clicki As
Integerflag As Boolean = Falsei = 0 To ListBox2.Items.Count - 1ListBox2.Items(i).Text
= ListBox1.SelectedItem.Text Then= TrueIfflag = False Then
ListBox2.Items.Add(ListBox1.SelectedItem).ClearSelection()SubSub
Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button9.Click.Items.Remove(ListBox2.SelectedItem)SubSub Button3_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Button3.ClickListBox2.Items.Count = ListBox1.Items.Count
ThenListBox2.Items(0).Text = ListBox1.Items(1).Text And ListBox2.Items(1).Text
= ListBox1.Items(3).Text And ListBox2.Items(2).Text = ListBox1.Items(2).Text
And ListBox2.Items(3).Text = ListBox1.Items(0).Text Then.Text = "Вы
ответили правильно".Text = "Вы ответили неправильно"If.Text =
"Вы ответили неправильно"IfSubSub LinkButton1_Click(ByVal sender As
Object, ByVal e As System.EventArgs) Handles
LinkButton1.ClickListBox2.Items.Count = ListBox1.Items.Count
ThenListBox2.Items(0).Text = ListBox1.Items(1).Text And ListBox2.Items(1).Text
= ListBox1.Items(3).Text And ListBox2.Items(2).Text = ListBox1.Items(2).Text
And ListBox2.Items(3).Text = ListBox1.Items(0).Text Then("kol_yes") =
CStr(CInt(Session("kol_yes")) + 1)("kol_no") =
CStr(CInt(Session("kol_no")) + 1)If("kol_no") =
CStr(CInt(Session("kol_no")) + 1)If.Transfer(CStr(Session("диспетч_форма")))SubSub
Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class вопрос4_7System.Web.UI.PageSub Button3_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Button3.ClickTextBox1.Text = "меню" And TextBox2.Text =
"меню" And TextBox3.Text = "меню" Then.Text = "Вы
ответили правильно".Text = "Вы ответили неправильно"IfSubSub
LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
LinkButton1.ClickTextBox1.Text = "меню" And TextBox2.Text =
"меню" And TextBox3.Text = "меню" Then("kol_yes")
= CStr(CInt(Session("kol_yes")) + 1)("kol_no") =
CStr(CInt(Session("kol_no")) + 1)If.Transfer(CStr(Session("диспетч_форма")))SubSub
Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class вопрос4_8System.Web.UI.PageSub Button1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Button1.Clickn_select As
Integer =
ListBox1.SelectedIndex.Items.Add(ListBox1.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button2.Clickn_select As Integer =
ListBox2.SelectedIndex.Items.Add(ListBox2.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button3.Clickn_select As Integer =
ListBox1.SelectedIndex.Items.Add(ListBox1.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button4.Clickn_select As Integer =
ListBox3.SelectedIndex.Items.Add(ListBox3.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button5.Clickn_select As Integer =
ListBox1.SelectedIndex.Items.Add(ListBox1.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button6.Clickn_select As Integer = ListBox4.SelectedIndex.Items.Add(ListBox4.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button7.ClickListBox2.Items.Count = 3 And ListBox3.Items.Count = 3 And
ListBox4.Items.Count = 4 ThenListBox2.Items(0).Text = "C архивом CAB"
And ListBox2.Items(1).Text = "C архивом RAR" And
ListBox2.Items(2).Text = "C архивом ZIP" And ListBox3.Items(0).Text =
"Добавить значок WinRAR в меню Пуск" And ListBox3.Items(1).Text =
"Добавить значок WinRAR на Рабочий стол" And ListBox3.Items(2).Text =
"Создать группу программ WinRAR" And ListBox4.Items(0).Text =
"Вложенные контекстные меню" And ListBox4.Items(1).Text =
"Встроить WinRAR в оболочку ОС" And ListBox4.Items(2).Text = "Значки
в контекстных меню" And ListBox4.Items(3).Text = "Элементы
контекстного меню" Then.Text = "Вы ответили правильно".Text =
"Вы ответили неправильно"If.Text = "Вы ответили
неправильно"IfSubSub LinkButton1_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles LinkButton1.ClickListBox2.Items.Count = 3 And
ListBox3.Items.Count = 3 And ListBox4.Items.Count = 4
ThenListBox2.Items(0).Text = "C архивом CAB" And
ListBox2.Items(1).Text = "C архивом RAR" And ListBox2.Items(2).Text =
"C архивом ZIP" And ListBox3.Items(0).Text = "Добавить значок
WinRAR в меню Пуск" And ListBox3.Items(1).Text = "Добавить значок
WinRAR на Рабочий стол" And ListBox3.Items(2).Text = "Создать группу
программ WinRAR" And ListBox4.Items(0).Text = "Вложенные контекстные
меню" And ListBox4.Items(1).Text = "Встроить WinRAR в оболочку
ОС" And ListBox4.Items(2).Text = "Значки в контекстных меню" And
ListBox4.Items(3).Text = "Элементы контекстного меню"
Then("Kol_yes") = CStr(CInt(Session("Kol_yes")) +
1)("Kol_yes") = CStr(CInt(Session("Kol_yes")) +
1)If("Kol_no") = CStr(CInt(Session("Kol_no")) +
1)If.Transfer(CStr(Session("диспетч_форма")))SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class вопрос4_9System.Web.UI.PageSub Button1_Click(ByVal sender As
Object, ByVal e As System.EventArgs) Handles Button1.Clickn_select As Integer =
ListBox1.SelectedIndex.Items.Add(ListBox1.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button9.Clickn_select As Integer =
ListBox2.SelectedIndex.Items.Add(ListBox2.SelectedItem).ClearSelection().Items.RemoveAt(n_select)SubSub
Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button3.ClickListBox2.Items.Count = 5 ThenListBox2.Items(0).Text =
"Открыть Проводник" And ListBox2.Items(1).Text = "Правой
клавишей мыши нажать по заархивированному файлу" And
ListBox2.Items(2).Text = "Выбрать команду Извлечь файлы" And
ListBox2.Items(3).Text = "Ввести в появившемся диалоговом окне имя папки,
в которую их надо извлечь" And ListBox2.Items(4).Text = "Нажать
кнопку ОК" Then.Text = "Вы ответили правильно".Text = "Вы
ответили неправильно"If.Text = "Вы ответили неправильно"IfSubSub
LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
LinkButton1.ClickListBox2.Items.Count = 5 ThenListBox2.Items(0).Text =
"Открыть Проводник" And ListBox2.Items(1).Text = "Правой
клавишей мыши нажать по заархивированному файлу" And
ListBox2.Items(2).Text = "Выбрать команду Извлечь файлы" And
ListBox2.Items(3).Text = "Ввести в появившемся диалоговом окне имя папки,
в которую их надо извлечь" And ListBox2.Items(4).Text = "Нажать
кнопку ОК" Then("Kol_yes") =
CStr(CInt(Session("Kol_yes")) + 1)("Kol_no") =
CStr(CInt(Session("Kol_no")) + 1)If("Kol_no") =
CStr(CInt(Session("Kol_no")) + 1)If.Transfer(CStr(Session("диспетч_форма")))SubSub
Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.LoadCStr(Session("режим_обучения")) = "Контроль"
Then.Visible = False.Visible = False.Visible = True.Visible = TrueIfSubClass
Class Об_автореSystem.Web.UI.PageSub LinkButton1_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
Server.Transfer(Session("Page_URL"))SubClass
Class Результаты_тестированияSystem.Web.UI.PageSub
Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.Load("Page_URL") = Request.RawUrl.Text = "Количество
правильных ответов - " + CStr(Session("kol_yes")).Text =
"Количество неправильных ответов - " +
CStr(Session("kol_no"))othenka As Double=
Math.Round(CInt(Session("kol_yes")) / 8)othenka < 2 Then othenka =
2.Text = "Ваша оценка - " + CStr(othenka)SubSub
ImageButton1_Click(ByVal sender As Object, ByVal e As
System.Web.UI.ImageClickEventArgs) Handles
ImageButton1.Click.Transfer("Об_авторе.aspx")SubClass
Class СтатистикаSystem.Web.UI.PageSub Page_Load(ByVal sender
As Object, ByVal e As System.EventArgs) Handles Me.Load("Page_URL") =
Request.RawUrlPage.IsPostBack = False Thenothenka As Double=
Math.Round(CInt(Session("kol_yes")) / 8)othenka < 2 Then othenka =
2("Оценка_обучаемого") = othenka.InsertCommand = " INSERT INTO
[Данные_обучаемых] (ФИО, [Количество_yes],[Количество_no],Оценка,
[Дата_обучения]) VALUES ('" + Session("ФИО_обучаемого") +
"'," + CStr(Session("kol_yes")) + "," + CStr(Session("kol_no"))
+ "," + CStr(Session("Оценка_обучаемого")) + ",'"
+ Format(Now(), "dd-MM-yyyy г. HH:mm:ss") +
"')".Insert()IfSubSub LinkButton1_Click(ByVal sender As Object, ByVal
e As System.EventArgs) Handles
LinkButton1.Click.Transfer("Выход.aspx")SubSub ImageButton1_Click(ByVal
sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles
ImageButton1.Click.Transfer("Об_авторе.aspx")SubClass
Class ВыходSystem.Web.UI.PageSub ImageButton1_Click(ByVal
sender As Object, ByVal e As.Web.UI.ImageClickEventArgs) Handles
ImageButton1.Click.Transfer("Об_авторе.aspx")SubSub Page_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Me.Load("Page_URL") = Request.RawUrlSubClass
Class СправкаSystem.Web.UI.PageSub ImageButton1_Click(ByVal sender As
Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles
ImageButton1.Click.Transfer("Об_авторе.aspx")SubClass
Class Справка_обучениеSystem.Web.UI.PageSub ImageButton1_Click(ByVal
sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles
ImageButton1.Click.Transfer("Об_авторе.aspx")SubClass
Class Справка_контрольSystem.Web.UI.PageSub ImageButton1_Click(ByVal
sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles
ImageButton1.Click.Transfer("Об_авторе.aspx")SubClass