Главная страница Случайная страница Разделы сайта АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 7
Тема: Массивы объектов. Массивы данных Цель: Закрепить навыки использования массива объектов и массива данных Постановка задачи: Разработать приложение-«Тест» Порядок выполнения: 1. Установите на форме следующие объекты и измените им свойства:
2. Приведите свою форму в соответствие с образцом
14. В разделе общих объявлений набрать: Dim Test(4, 5) As String 'массив с вопросами и ответами Dim Verno As Integer 'кол-во верных ответов Dim n As Integer 'номер текущего вопроса Dim s As Integer 'номер выбранного ответа 3. В окне кода процедуры обработки события Load для объекта Form набрать For i = 1 To 3 OptOtvet(i).Value = False Next i n = 0: Verno = 0 Test(0, 1) = " единица измерения памяти" 'первый вопрос 'варианты ответов на первый вопрос Test(1, 1) = " тактовая частота" Test(2, 1) = " байт" Test(3, 1) = " количество точек" Test(4, 1) = " 2" 'номер правильного ответа на первый вопрос 'данные 2 вопроса Test(0, 2) = " устройство обработки информации" Test(1, 2) = " процессор" Test(2, 2) = " ОЗУ" Test(3, 2) = " дискета" Test(4, 2) = " 1" 'данные 3 вопроса Test(0, 3) = " назначение монитора" Test(1, 3) = " ввода" Test(2, 3) = " вывод" Test(3, 3) = " печать" Test(4, 3) = " 2" 'данные 4 вопроса Test(0, 4) = " назначение CD ROM" Test(1, 4) = " чтение информации" Test(2, 4) = " запись информации" Test(3, 4) = " хранение информации" Test(4, 4) = " 3" 'данные 5 вопроса Test(0, 5) = " указать устройство ввода и вывода информации" Test(1, 5) = " дискета" Test(2, 5) = " мышь" Test(3, 5) = " дисковод" Test(4, 5) = " 3" 4. В окне кода процедуры обработки события Click для объекта OptOtvet набрать s = Index 5. В окне кода процедуры обработки события Click для объекта Cmd набрать For i = 1 To 3 OptOtvet(i).Value = False Next i If n = 0 Then n = 1 LblVopros.Caption = Test(0, n) For i = 1 To 3 OptOtvet(i).Caption = Test(i, n) Next i
|