![]() Главная страница Случайная страница Разделы сайта АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 6. Цель: Закрепить навыки использования массива объектов и оператора цикла
Тема: Массивы объектов. Цель: Закрепить навыки использования массива объектов и оператора цикла Постановка задачи: Разработать приложение- «Кроссворд» Порядок выполнения: 1. Установите на форме следующие объекты и измените им свойства:
2. Расположите объекты примерно так, как показано на образце. Элементы одного массива должны располагаться по возрастанию индексов. Не спешите делать пересечение слов. 3. В разделе общих объявлений набрать: Dim vopr(28), otv(28) As String ' массивы с вопросами и ответами Dim k 'кол-во отгаданных слов 4. В окне кода процедуры обработки события Load для объекта Form набрать: 'заполнение массива вопросами vopr(1) = " устройство печати" vopr(2) = " устройство ввода вывода" vopr(3) = " устройство вывода" vopr(4) = " гибкий диск" vopr(5) = " устройство ввода" 'заполнение массива ответами otv(1) = " принтер" otv(2) = " дисковод" otv(3) = " монитор" otv(4) = " дискета" otv(5) = " мышь" k = 0 5. В окне кода процедуры обработки события Click для объекта Buk1 набрать:
otvet = InputBox(vopr(1)) n = Len(otvet) If n = 0 Then Exit Sub If otvet = otv(1) Then 'ответ введен верно, вывод букв в клетки For i = 1 To n buk1(i) = Mid(otvet, i, 1) Next i 'количество отгаданных слов увеличилось на единицу k = k + 1 End If
6. Проверьте работу программы (для первого слова) 7. Самостоятельно набрать код для остальных массивов меток 8. В окне кода процедуры обработки события Timer для объекта Timer1 набрать If k = 5 Then MsgBox " кроссворд разгадан"
End If
9. Проверьте работу программы 10. В том случае, если программа работает полностью правильно, сделайте пересечение слов (см. образец)
11. Объясните, почему на пересечении слов не всегда сразу отображается буква, исправьте этот «недостаток» программы Забиваем Сайты В ТОП КУВАЛДОЙ - Уникальные возможности от SeoHammer
Каждая ссылка анализируется по трем пакетам оценки: SEO, Трафик и SMM.
SeoHammer делает продвижение сайта прозрачным и простым занятием.
Ссылки, вечные ссылки, статьи, упоминания, пресс-релизы - используйте по максимуму потенциал SeoHammer для продвижения вашего сайта.
Что умеет делать SeoHammer
— Продвижение в один клик, интеллектуальный подбор запросов, покупка самых лучших ссылок с высокой степенью качества у лучших бирж ссылок. — Регулярная проверка качества ссылок по более чем 100 показателям и ежедневный пересчет показателей качества проекта. — Все известные форматы ссылок: арендные ссылки, вечные ссылки, публикации (упоминания, мнения, отзывы, статьи, пресс-релизы). — SeoHammer покажет, где рост или падение, а также запросы, на которые нужно обратить внимание. SeoHammer еще предоставляет технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Зарегистрироваться и Начать продвижение
12. Добавьте на форму кнопку «Справка» для вывода сообщения, как работать с программой
13. Результат показать преподавателю.
|