Написание программного кода.

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

- Используя функцию InputBox (лекция «ветвление»), напишите запрос фамилии и имени (переменные fam и Imya, соответственно). При объявлении переменных учтите, что их значения будут вызываться с других форм (лекция «переменные»).

- После запроса фамилии и имени запишите команды, позволяющие перейти на следующую форму.

форма тестирования

- Объявите переменные, используемые для работы с данными различных типов:

- Создайте процедуру реакции нажатия радиокнопки:

Подобным образом создайте процедуры для радиокнопок 2-4.

- создайте событийную процедуру, запускаемую автоматически при загрузке формы 2 (Form2_Load).

- в данной процедуре выполните обнуление используемых переменных:

	QMAX = 4 ' задано максимальное количество вопросов QN = 0 ' обнуление счётчика вопросов rez = 0 ' обнуление счётчика результатов тестирования

- Задайте значения массивов, хранящих вопросы, варианты ответов и номера правильных ответов.

- Запишите команду запуска процедуры опроса.

- Создайте процедуру опроса:

- Создайте процедуру перехода к следующему вопросу:

Г- создайте обработчик результатов:

Sub Rezult() For Me.i = 1 To 4 Step 1 If Myotv(i) = prav(i) Then rez = rez + 1 Next rez = rez / QMAX * 100 ' вычисление процента правильности выполнения теста (в %) Select Case rez Case Is < 50 ' если % выполнения теста <50% Form3.ListBox1.Items.Add("Плохо!") Case Is >= 90 ' если % выполнерия теста >=50% Form3.ListBox1.Items.Add("Отлично!") Case 50 To 75 ' если % выполнения теста от 50 до 75% Form3.ListBox1.Items.Add("Удовлетворительно!") Case Else ' во всех остальных случаях (т.е. от 75 % до 90%) Form3.ListBox1.Items.Add("Хорошо!") End Select Form3.Show() Me.Hide() End Sub

Литература

Угринович Н.Д. Информатика и ИКТ. Базовый курс. Учебник для 9 класса. М.:БИНОМ, лаборатория знаний, 2007-2014ггг

Угринович Н.Д. Информатика и ИКТ. Профильный уровень. Учебник для 10 класса. М.:БИНОМ, лаборатория знаний, 2010-2014гг

http://msdn.microsoft.com/ru-ru/library/2x7h1hfk%28v=vs.90%29.aspx

Дата добавления: 2015-07-25