Материал: Информация и информационные процессы

Передача информации - всегда двусторонний процесс: есть источник и есть приемник информации. Источник передает (отправляет) информацию, а приемник ее получает (воспринимает).

Обработка информации - третий вид информационных процессов. Процесс обработки информации не всегда связан с получением каких-то новых сведений. Например, учитель русского языка проверяет написанные вами сочинения на тему «Как я провел это лето». Он исправляет ошибки и выставляет оценки. Исправление ошибок - это вариант обработки текста сочинения без изменения его содержания.

К информационным процессам обработки относится кодирование информации. Процесс кодирования - это преобразование формы представления информации в новую форму, удобную для ее хранения, передачи и обработки.

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

И наконец, еще одна разновидность процесса обработки - поиск информации. В словаре искать перевод иностранного слова, в телефонном справочнике - номер телефона, в железнодорожном расписании - время отправления поезда и т д. Все это - процессы поиска информации на внешних носителях: книгах, схемах, таблицах, картотеках.

Закрепление новых знаний

Учитель задает детям вопросы по новой теме:

-       Приведите свои примеры профессий, в которых основным видом деятельности является работа с информацией ?

-       Назовите три основных вида информационных процессов ?

-       Приведите примеры ситуаций, в которых вы являетесь источником информации, приемником информации ? Какую роль за сегодняшний день вам чаще приходилось выполнять ?

-       Приведите различные примеры процесса обработки информации. Определите, по каким правилам она производится в каждом примере ?

Подведение итогов

-       Оценить работу учащихся за активное участие в процессе урока.

-       Домашнее задание: учебник: И. Г. Семакин. Информатика. Базовый курс. 7-9 классы. § 3. «Информационные процессы», - стр. 16 - 19 выучить.

-       Выставление оценок.

2.4 Четвертый развернутый план-конспект урока

Школа: №11

Класс: 7 “А”

Дата: 14.03.2011

Тема урока: «Информационные процессы и языки общения».

Цели урока

Образовательные цели:

выявить интеллектуальные качества личности;

выработать умения работы с персональным компьютером;

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

Развивающие цели:

формировать навыки самостоятельности в работе;

развивать внимание, память, алгоритмическое мышление и эстетическое чувство;

развивать логику учащихся.

Воспитательные цели:

побуждать к познавательной деятельности, воспитывать ответственность, организованность, самостоятельность;

воспитывать дисциплинированность, а также нравственные качества личности.

Тип урока: Урок игра

Методы проведения: объяснение решения задач, самостоятельная работа учащихся на ЭВМ, лекция, показ, упражнения, объяснение с демонстрацией на ПК, работа с опорными конспектами, опрос с целью закрепления знаний.

Оборудование: карточки.

План урока

1   Организационный момент (1 мин)

2       Актуализация знаний (10 мин)

         Инструктаж к игр. (5 мин)

         Проведение игры (25 мин)

         Подведение итогов игры (4 мин)

Продолжительность урока: 45 минут.

Ход урока

Организационный момент.

приветствие;

проверка наличия учебных принадлежностей;

объявление темы и цели урока.

Актуализация знаний.

Опрос учащихся по предыдущей теме урока.

Активизирование знаний учащихся.

Мотивирование умственной деятельности учащихся.

Инструктаж к игре.

Учащиеся делятся на две команды, в каждой команде выбирается капитан учитель диктует задание, затем учащимся дается время для обсуждения ответа и кто - то из учеников должен дать ответ.

Проведение игры.

Игра называется «ПОЛЕ ЧУДЕС». Учитель задает вопрос обеим командам, 1 из учеников по очереди из каждой команды отгадывают букву в слове или слово целиком. За каждую правильно отгаданную букву команде ставится 1 балл, а если слово целиком 2 балла.

Вопросы:

1 что является знаковым способом представления информации?

Правильный вариант ответа представлен рисунком 3

Рисунок 3-правильный ответ на вопрос 1

что получает человек из различных источников?

Правильный вариант ответа представлен рисунком 4

Рисунок 4-правильный ответ на вопрос 2

как называется место где хранится информация в компьютере? Правильный вариант ответа представлен рисунком 5

Рисунок 5-правильный ответ на вопрос 3

как называется процесс преобразования формы представления информации в новую форму, удобную для ее хранения, передачи и обработки?

Правильный вариант ответа представлен рисунком 6

Рисунок 6-правильный ответ на вопрос 4

как называются сведения, получаемые из различных источников, написанные на естественном языке?

Правильный вариант ответа представлен рисунком 7

Рисунок 7-правильный ответ на вопрос 5

как называется информация, воспринимаемая человеком в устной или письменной форме?

Правильный вариант ответа представлен рисунком 8

Рисунок 8-правильный ответ на вопрос 6

как называется процесс, который передает информацию?

Правильный вариант ответа представлен рисунком 9

Рисунок 9-правильный ответ на вопрос 7

как называется канал передачи информации?

Правильный вариант ответа представлен рисунком 10

Рисунок 10-правильный ответ на вопрос 8

как называется процесс получения информации?

Правильный вариант ответа представлен рисунком 11

Рисунок 11-правильный ответ на вопрос 9

через какой орган чувств человек получает звуковую информацию?

Правильный вариант ответа представлен рисунком 12

Рисунок 12-правильный ответ на вопрос 10

Подведение итогов игры

Оценить работу учащихся за активное участие в процессе игры. Подсчитывается количество баллов в каждой команде. Та команда, которая набрала наибольшее количество баллов - получает оценки пять, а которая наименьшее - оценки четыре.

.5 Документация на программно-педагогическое средство

На этом этапе дипломной работы разрабатывается компьютерная программа с поддержкой блок-схем и постановкой задач для проверки знаний учащихся.

         Постановка задачи:

Входные данные: тестовые задания в формате:

- номер вопроса;

- текст вопроса;

вариант ответа №1;

вариант ответа №2;

вариант ответа №3;

вариант ответа №4;

номер правильного ответа.

Выходные данные: результаты тестирования в виде оценок.

         Описание алгоритма:

MsgBox-функция выводит диалоговое окно, используемое для отображения какой-либо информации (сообщения). Sub-имя подпрограммы; Dim- имя переменной, объявление вариантов ответов. String-строковый тип, строковые переменные хранят символы. Variant-произвольный тип, переменная типа Variant может содержать данные любого типа. Show-метод загружающий форму и показывающий ее на экране. Hide-удаляет форму с экрана, но не из памяти.

         Блок-схема алгоритма задачи:

Программа состоит из четырех форм:

стартовая форма;

форма прохождения тестов-1 вариант;

форма прохождения тестов-2 вариант;

форма вывода итогов теста

Стартовая форма содержит следующие компоненты:

Метка с названием теста;

кнопка ввода фамилии и имени;

кнопки двух вариантов;

кнопка выхода из теста.

Назначение кнопок - ввод данных . При этом будет выполнен следующий программный код:

Form1.Hide.Show.Enabled = False.Image2.Visible = False.Label2.Visible = False2.Timer1.Enabled = True

Блок-схема данной процедуры представлена на рисунке 13.

Рисунок 13 - Блок-схема срабатывания кнопок

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

Dim Str As Variant.Option1.Visible = True.Option2.Visible = True.Option3.Visible = True.Option4.Visible = True.Option1.Value = False.Option2.Value = False.Option3.Value = False.Option4.Value = False= FreeFile"1.txt" For Input As FhInput #Fh, Str.Label1 = StrInput #Fh, Str.Option1.Caption = StrInput #Fh, Str.Option2.Caption = StrInput #Fh, Str.Option3.Caption = StrInput #Fh, Str.Option4.Caption = StrFh.Label2.Caption = "1.txt".Timer1.Enabled = True.Hide5.Show

Блок-схема данной процедуры приведена на рисунке 14.

Рисунок 14 - Процедура выбора варианта тестирования

Форма прохождения тестов содержит четыре переключателя для отображения вариантов ответов и метку для вывода задания, а так же кнопку для перехода на следующий вопрос. Программный код формы представлен двумя процедурами:

процедура срабатывания таймера;

процедура перехода на следующий вопрос.

Назначение таймера - пропустить вопросы, которые уже выведены на форму тестирования при ее открытии. Код процедуры срабатывания таймера представлен ниже.

Dim Str As Variant

Fh = FreeFile

Open Form5.Label2.Caption For Input As FhInput #Fh, StrInput #Fh, StrInput #Fh, StrInput #Fh, StrInput #Fh, Str.Enabled = False

Блок-схема процедуры изображена на рисунке 15.

Рисунок 15 - Процедура срабатывания таймера

Процедура перехода на следующий вопрос осуществляет чтение очередного вопроса и его отображение на экранной форме. Так же в этой процедуре осуществляется контроль количества заданных вопросов. Если задан последний вопрос из списка, то осуществляется подсчет и вывод результата. Код процедуры перехода на следующий вопрос приведен ниже:

Private Sub Command1_Click()

Dim Str As VariantO As String * 20(Option1.Value = False) And (Option2.Value = False) And (Option3.Value = False) And (Option4.Value = False) Then"Выберите ответ!!!"GGIf= K + 1Input #Fh, Str((Str = "1") And (Option1.Value = True)) Then Balls = Balls + 1((Str = "2") And (Option2.Value = True)) Then Balls = Balls + 1((Str = "3") And (Option3.Value = True)) Then Balls = Balls + 1((Str = "4") And (Option4.Value = True)) Then Balls = Balls + 1.Value = False.Value = False.Value = False.Value = FalseK = 20 Then GoTo HHInput #Fh, Str.Label1 = StrInput #Fh, Str.Option1.Caption = StrInput #Fh, Str.Option2.Caption = StrInput #Fh, Str.Option3.Caption = StrInput #Fh, Str.Option4.Caption = StrGG:1# * Balls / 20 < 0.6 Then= "Неудовлетворительно"1# * Balls / 20 < 0.75 Then = "Удовлетворительно"

ElseIf 1# * Balls / 20 < 0.75 Then

O = "Хорошо"

Else= "Отлично"If.Visible = True1.Visible = True

Label1.Caption = "Вы ответили на " & Balls & " вопросов из 20. Ваша оценка " & O

Command1.Visible = False:Option1.Visible = False:Option2.Visible = False:Option3.Visible = False:Option4.Visible = False:GG: End Sub

Блок-схема процедуры отображена на рисунке 16.

Рисунок 16 - процедура перехода на вопрос

Рисунок 17 - процедура подсчета баллов

Рисунок 18 - процедура ввода данных

Рисунок 19 - процедура вывода оценок

Рисунок 20 - процедура окончания тестирования

2.6 Методика применения программного продукта

Для осуществления компьютерного контроля знаний учащихся используются тестовые вопросы, которые пишутся в программе Visual Basic, приведенные ниже в раздаточном материале.

Тест «Информация, наука информатика, информационные процессы»

Вариант _1__

Executor - система контроля знаний для учащихся на основе записанных преподавателем тестовых заданий в системе Creator.

Файл с вопросами: Informa.crt - Информация. Основные понятия. Единицы измерения

Выберите из предлагаемых ответов тот, который считаете правильным:

Что не является информационным процессом?

а) чтение книги

б) телефонный разговор

в) запись информации на диск

г) сбор урожая

- Как еще можно назвать информационный процесс "накопление"?

а) обмен

б) хранение

в) обработка

г) передача

3. Отражение реального или воображаемого мира в сознании человека в виде знаков и сигналов, это ...

а) вещество

б) информация                          в) энергия

г) язык

4. Единица измерения информации и объема памяти, равная 8 битам, это ...

а) килобайт

б) байт

в) мегабайт

г) гигабайт

5. Статья, написанная без использования специальной терминологии, на доступном языке - содержит . . информацию

а) объективную

б) ценную

в) полную

г) понятную

6. Правдивые сведения из статьи, напечатанной в уважаемой газете, обладают свойством:

а) достоверность         б) полнота          в) актуальность г) ценность

. 1 байт равен ...

а) 1024 бит

б) 8 бит

в) 10 бит

г) 32 бит

8. Получение (прием), хранение, обмен (передача) и обработка информации - все это информационные ...

а) объекты

б) процессы

в) виды

г) предметы

9. Что из перечисленного является способом кодирования информации?

а) Письмо на любом языке народов мира

б) Телеграфное сообщение азбукой Морзе

в) Запись звуков нотами

г) Все перечисленное выше

10. Единица измерения количества информации и объема памяти, равная 1024 байт, называется ...

а) килобайт

б) гигабайт

в) мегабайт

г) терабайт

Вариант _2__

1. Какого рода информационные сигналы обрабатываются компьютером?

а) Аналоговые или непрерывные б) Внутренние сигналы

в) Дискретные или цифровые г) Все перечисленные выше сигналы

2. Каким образом кодируется информация в компьютере?

а) специальными символами

б) латинскими буквами

в) двоичным кодом

г) все перечисленное верно

3. Как еще можно назвать информационный процесс "преобразование"?

а) обмен

б) обработка

в) хранение

г) получение

4. Что из перечисленного является наименьшей единицей измерения информации?

а) байт

б) килобайт

в) двоичный код

г) бит

5. Злободневная, оперативно отражающая реальные события информация, - обладает свойством: актуальность или …

а) достоверность

б) полнота

в) своевременность

г) ценность

6. Информация, которую вы получили, достаточна, чтобы принять верное решение. Это свойство информации ...

а) полнота

б) понятность

в) достоверность

г) актуальность

7. Что из перечисленного не изучает наука информатика?

а) информационные процессы

б) приемы и способы обработки информации

в) производственные процессы

г) хранение и передачу информации с помощью ЭВМ

8. Наука, изучающая свойства информации, информационные процессы и информационные технологии, называется ...

а) физика

б) математика

в) логика

г) информатика

9. Для хранения какой информации потребуется наибольшее количество байт?

а) 3.9

б) дом

в) 13865%

г) диски

10. Любой материальный объект, сохраняющий записанную информацию, это ... а) преобразователь информации; б) источник информации; в) приемник информации; г) носитель информации

2.7 Описание форм программного продукта

В этой части дипломной работы представлены образцы форм выполнения контролирующей программы Visual Basic.

На этой форме отражены: кнопки ввода фамилии и имени, метка с названием теста, а также кнопки выбора двух вариантов для прохождения теста.

Образец формы 1 представлен на рисунке 21

Рисунок 21 - образец формы 1

На этой форме отражены: кнопки начать, далее и итоги для выполнения теста а также метка вариант и вопрос для вывода вопроса и здесь выводятся варианты ответов.

Образец формы 2 представлен на рисунке 22

Рисунок 22 - образец формы 2

На этой форме отражена кнопка итоги с выводом двух окон для подсчета количества баллов и вывода оценки тестируемого.

Образец формы 3 представлен на рисунке 23

Рисунок 23 - образец формы 3

На этом этапе - практическая (экспериментальная) часть подробно раскрыты, составлены и описаны планы-конспекты уроков для обучения учащихся в школе на основе учебников описанных в теоретической части, благодаря которым преподаватель ориентируется во время проведения уроков в школе. И еще в этой части разработано программно-педагогическое средство для компьютерного контроля знаний учащихся. Программный продукт составлен из двух вариантов по десять вопросов, что способствует развитию абстрактно-логического мышления и памяти учащихся. Программа для компьютерного тестирования знаний учащихся в седьмом классе рассчитана на половину урока и достаточна во времени, чтобы ее пройти до конца урока.

Заключение

В представленной работе выполнены все этапы решения проблем. Цель исследования выпускной квалификационной работы достигнута, предмет и объект этой работы определены, все задачи выполнены. Также в представленной работе четко решена проблема исследования и ее методы, где проводилась апробация исследования.

В этой дипломной работе подробно описан первый этап - теоретическая часть. В ней анализируется учебно-научная литература на основе которой учащиеся обучаются в школе. Здесь описаны такие учебники:

- Семакин И.Г. Информатика;

Босова Л.Л. Информатика;

Шафрин Ю.А. Информатика.

В учебнике Семакин И.Г. Информатика можно сделать такой вывод. В этой учебной литературе очень подробно, доступно и четко описываются темы урока, а также анализируются самые важные термины в каждой теме параграфа для того, чтобы учащиеся могли лучше усвоить, то что им необходимо знать. Учитель должен диктовать учащимся необходимые утверждения из научной литературы, что является очень важным для усвоения учащимися нужных сведений. В этом учебнике легко изложен теоретический материал и также легко даются практические задания.

В учебнике Босова Л.Л. Информатика можно создать следующий вывод. В этой учебной литературе очень подробно, и четко описываются темы урока, а также анализируются самые важные термины в каждой теме параграфа для того, чтобы учащиеся могли лучше усвоить, то что им необходимо знать. Учитель должен диктовать ребятам необходимые утверждения из научной литературы, что является очень важным для усвоения учащимися обязательных сведений. В этом учебнике достаточно сложный теоретический материал и практические задания, чем в предыдущем учебнике.

В учебнике Шафрин Ю.А. Информатика можно сделать следующий вывод. В этой учебной литературе очень подробно, и четко описываются темы урока, а также анализируются самые важные термины в каждой теме параграфа для того, чтобы учащиеся могли лучше усвоить, то что им необходимо знать. Учитель должен диктовать ученикам необходимые утверждения из научной литературы, что является очень важным для усвоения учащимися необходимых сведений. В этом учебнике очень трудный теоретический материал для понимания ученикам темы урока и очень сложные практические задания, чем в предыдущем учебнике.

Также в этой работе очень подробно характеризуется второй этап - практическая (экспериментальная) часть. В ней подробно раскрыты, составлены и описаны планы-конспекты уроков для обучения учащихся в школе на основе учебников описанных в теоретической части, благодаря которым преподаватель ориентируется во время проведения уроков в школе. И еще в этой части разработано программно-педагогическое средство для компьютерного контроля знаний учащихся. Программный продукт составлен из двух вариантов по десять вопросов, что способствует развитию абстрактно-логического мышления и памяти учащихся. Программа для компьютерного тестирования знаний учащихся в седьмом классе рассчитана на половину урока и достаточна во времени, чтобы ее пройти до конца урока.

Пути совершенствования данной проблемы могут быть таковы:      

методику проведения представленной темы выпускной квалификационной работы «Методика обучения информатике в 7 классе. Информация и информационные процессы» следует проводить в основной общеобразовательной школе на уроках информатики.

информация язык поиск хранение

Список использованной литературы

1      Босова Л. Л. Информатика: Учебник для 7 класса. М.: БИНОМ. Лаборатория знаний, 2006.

2       Учебник Босова Л. Л., Босова А. Ю., Коломенская Ю. Г. Занимательные задачи по информатике. М.: БИНОМ. Лаборатория знаний, 2005.

         Учебник / Бочкин А.И. Методика преподавания информатики: Учеб. пособие.- Минск, 1998.

         Учебник / Горячев А.В. Информатика в играх и задачах // Информатика и образование. -1995. -№6.- С. 79-80.

         Учебник Леонтьев В. Новейшая энциклопедия персонального компьютера 2005 М.:ОЛМА-ПРЕСС образование, 2005. 800 с.

         Учебник / Ловцов Д.А., Сухов А.В. Фрагмент компьютерного учебника для контроля знаний//Информатика и образование.- 1995.-№3.- с.91-96.

7      Учебник / Макарова Н.В. и др. Информатика. 7-9 класс. Базовый курс. Теория. -СПб.:"Питер", 2002. -368с.

8       Семакин И. Г. Информатика: Учебник для 7-9 классов. М.: БИНОМ. Лаборатория знаний, 2006.

9      Учебник / Семакин И.Г., Шеина Т.Ю. Преподавание базового курса информатики в средней школе. Методическое пособие для учителя.- М., Лаборатория Базовых Знаний, 2000.

10     Семенов А.Л. и др. Алгоритмика. 5 - 7 кл. (для углубленного изучения). - М., "Дрофа", 1998.

11    Учебник / Стрельцова Н.Б. Интеллектуальный конкурс «Эрудит» для учащихся 7-8-х классов : Интеллектуальные игры и соревнования / Н. Б. Стрельцова // Классный руководитель. - 2009.-№3. С.110- 116.

Приложение А

Презентация темы

На этом этапе приложения представлена презентация для третьего урока «Информационные процессы».

Слайд 1

Слайд 2

Слайд 3

Слайд 4

Слайд 5

Слайд 6

Слайд 7

ПРИЛОЖЕНИЕ Б

Дидактический материал

Term-INF - «Отметить термины информатики» для 7 класса

Темы для 7-го класса:

) ИНФОРМАЦИЯ И ЕЕ ВИДЫ, 2) ИНФОРМАЦИОННЫЕ ПРОЦЕССЫ, 3) ЯЗЫКИ.

Термины информатики для 7-го класса без определений:

тема 10 слов: ПОНЯТНОСТЬ, ОБЪЕКТИВНОСТЬ, ДОСТОВЕРНОСТЬ, ПОЛНОТА, ЦЕННОСТЬ,.ТЕКСТОВАЯ ИНФОРМАЦИЯ, ЦИФРОВАЯ ИНФОРМАЦИЯ, ЗВУКОВАЯ ИНФОРМАЦИЯ, ГРАФИЧЕСКАЯ ИНФОРМАЦИЯ, МУЛЬТИМЕДИЙНАЯ ИНФОРМАЦИЯ.

тема 5 слов: ПЕРЕДАЧА, ОБРАБОТКА, ХРАНЕНИЕ, ИСТОЧНИК, ПРИЕМ.

тема 4 слова: ЕСТЕСТВЕННЫЕ ЯЗЫКИ, ИСКУССТВЕННЫЕ ЯЗЫКИ, ЗНАК, СИМВОЛ.

Приложение В

Код программы

В этой части приложения подробно описывается текст контролирующей программы для учащихся 7 класса по теме «Информация и информационные процессы».

Текст программы по форме 1

Option Explicit

Dim fnum As IntegerALLtxt, txt, fname As String

Sub Command1_Click(Index As Integer).Show.HideSub

Sub Command2_Click().Show.HideSub

Sub Command3_Click()Sub

Sub Picture2_Click()SubSub Picture1_Click()Sub

Sub Информатика_Click(Index As Integer)= ""= "avtor.txt"= FreeFile"avtor.txt" For Input As fnumUntil EOF(fnum)Input #fnum, txt= ALLtxt + txt + vbCrLffnumALLtxt, , "Об авторе"Sub

Sub Комманда1_Click()= InputBox("Введите фамилию и имя через пробел", "Ввод данных")Sub

Sub Справка_Click(Index As Integer)help1Sub

help1()= ""= "Spravka.txt"fname For Input As #fnum 'открытие файла для чтения

Do Until EOF(fnum) 'цикл с предусловием текстовых данных

Line Input #fnum, txt= ALLtxt + txt + vbCrLf#fnumALLtxt, , "Справка"

End Sub

Текст программы по форме 2

Option ExplicitarrVopros(10), arrwar1(10), arrwar2(10), arrwar3(10), arrwar4(10), arrPraw(10) As Stringi, q, z, fnum, k As Integerfpatch As String, txt As String, ALLtxt As String

Sub Command4_Click().Show.HideSub

Sub Form_Load()

Me.Caption = "Контроль проходит ученик " & fam

b = 0= "Вариант1.txt"= FreeFile"Вариант1.txt" For Input As fnum

'Do Until EOF(fnum)

'Line Input #fnum, txt

'ALLtxt = ALLtxt + txt + vbCrLf

'Loopi = 1 To 10Input #fnum, arrVopros(i)Input #fnum, arrwar1(i)Input #fnum, arrwar2(i)Input #fnum, arrwar3(i)Input #fnum, arrwar4(i)Input #fnum, arrPraw(i)i#fnumSub

Sub Command1_Click() 'кнопка далееOpt(z).Value = True Then b = b + 1:q >= 0 And q < 12 Then.Enabled = FalseKontrol= q + 1If

If q = 11 Then= ""= "Тестирование окончено!"

Command2.Enabled = TrueIfi = 0 To 3(i) = 0i.Enabled = FalseSubSub Command2_Click()= FreeFile.Visible = True.Visible = True

Label5.Caption = "Количество баллов " & Str(b)b <= 3 Then Label6.Caption = "Неудовлетворительно " & "Оценка " & 2b <= 6 And b >= 4 Then Label6.Caption = "Удовлетворительно " & "Оценка " & 3

If b >= 7 And b <= 8 Then Label6.Caption = "Хорошо " & "Оценка " & 4b >= 9 Then Label6.Caption = "Отлично " & "Оценка " & 5

"FileRez.txt" For Output As filenum

Print #filenum, "Результаты тестированмя по теме Информация и информационные процессы"

Print #filenum, "_____________________________________________________________________"#filenum, "Ученик "; fam

Print #filenum, "Количество правильных ответов"; b

Print #filenum, "Задано вопросов - 10"#filenumSub

Sub Command3_Click() 'по кнопке начать= 1= "Тестирование началось!".Enabled = True.Enabled = FalseSub

Sub Kontrol().Caption = q.Caption = arrVopros(q)(0).Caption = arrwar1(q)(1).Caption = arrwar2(q)(2).Caption = arrwar3(q)(3).Caption = arrwar4(q)= Val(arrPraw(q))Sub

Sub Opt_Click(Index As Integer).Enabled = Trueq = 11 Then Command1.Enabled = False Sub

Текст программы по форме 3

Option ExplicitarrVopros(10), arrwar1(10), arrwar2(10), arrwar3(10), arrwar4(10), arrPraw(10) As Stringk As Varianti, q, fnum, z As Integerfpatch As String, txt As String, ALLtxt As String

Sub Command4_Click().Show.HideSub

Sub Form_Load()

Me.Caption = "Контроль проходит ученик " & fam

For i = 0 To 3: Opt(i).Value = False: Next i= 0: b = 0= "Вариант2.txt"= FreeFile"Вариант2.txt" For Input As fnumi = 1 To 10Input #fnum, arrVopros(i)Input #fnum, arrwar1(i)Input #fnum, arrwar2(i)Input #fnum, arrwar3(i)Input #fnum, arrwar4(i)Input #fnum, arrPraw(i)i#fnumSub

Sub Command1_Click()Opt(z).Value = True Then b = b + 1= q + 1q > 0 And q <= 11 Then.Enabled = FalseIfKontrol

If q = 10 Then= ""= "Тестирование окончено!"

Command2.Enabled = TrueIfi = 0 To 3(i) = 0i.Enabled = FalseSub

Sub Command3_Click()= "Тестирование началось!".Enabled = True.Enabled = FalseSub

Sub Kontrol()i = 0 To 3: Opt(i).Value = False: Next i.Caption = q.Caption = arrVopros(q)(0).Caption = arrwar1(q)(1).Caption = arrwar2(q)(2).Caption = arrwar3(q)(3).Caption = arrwar4(q)= arrPraw(q)Sub

Sub Command2_Click()= FreeFile.Visible = True.Visible = True.Caption = "Количество баллов " & bb <= 3 Then Label5.Caption = "Неудовлетворительно " & "Оценка " & 2b <= 6 And b > 3 Then Label5.Caption = "Удовлетворительно " & "Оценка " & 3b >= 7 And b <= 8 Then Label5.Caption = "Хорошо " & "Оценка " & 4b > 8 Then Label5.Caption = "Отлично " & "Оценка " & 5

"FileRez.txt" For Output As filenum

Print #filenum, "Результаты тестированмя по теме Информация и информационные процессы"

Print #filenum, "_____________________________________________________________________"#filenum, "Ученик "; fam

Print #filenum, "Количество правильных ответов"; b

Print #filenum, "Задано вопросов - 10"#filenumSub

Sub Opt_Click(Index As Integer).Enabled = Trueq = 10 Then Command1.Enabled = False

Текст программы по форме 4

Option ExplicitarrVopros(10), arrwar1(10), arrwar2(10), arrwar3(10), arrwar4(10), arrPraw(10) As Stringk As Varianti, q, b, fnum, z As Integerfpatch As String, txt As String, ALLtxt As String

Sub Kontrol()i = 0 To 3: Opt(i).Value = False: Next i.Caption = q.Caption = arrVopros(q)(0).Caption = arrwar1(q)(1).Caption = arrwar2(q)(2).Caption = arrwar3(q)(3).Caption = arrwar4(q)= arrPraw(q)SubSub Command1_Click().Caption = "Правильных ответов " & bb <= 3 Then Label2.Caption = "Неудовлетворительно " & "Оценка " & 2b <= 6 And b > 3 Then Label2.Caption = "Удовлетворительно " & "Оценка " & 3b >= 7 And b <= 8 Then Label2.Caption = "Хорошо " & "Оценка " & 4b > 8 Then Label2.Caption = "Отлично " & "Оценка " & 5Sub

Sub Command2_Click()Sub

Sub Opt_Click(Index As Integer)i = 0 To 3: Opt(i).Value = False: Next i

q = 0: b = 0Sub