Практическая работа по VISUAL BASIC.Проект «Вправо – влево»

  • Лабораторные работы
  • docx
  • 23.02.2018
Публикация в СМИ для учителей

Публикация в СМИ для учителей

Бесплатное участие. Свидетельство СМИ сразу.
Мгновенные 10 документов в портфолио.

Практическая работа по VISUAL BASIC направлена на отработку навыков работы с элементами управления VISUAL BASIC(CommandButton, ListBox) ,установление свойств элементов управления, разработка проекта, его отладка и сохранение. Практическая работа содержит перечень умений и навыков, которые приобретут учащиеся в процессе выполнения практической работы,табличку - подсказку для учащихся и решение для учителя.
Иконка файла материала Проект.docx
Выполнив задания этой практической работы, вы научитесь: Проект «Вправо – влево»   элементов   управления   (Caption, ­  создавать   форму   и   размещать     на   ней   элементы     управления   (CommandButton, ListBox); ­   устанавливать   свойства   RemoveItem, AddItem,) ; ­   вводить   текст     программы   и   её   отладка   (вспомните   условный   оператор,   цикл   со счетчиком); ­ сохранять проект. Для выполнения задания вам надо знать: ­ элементы  управления и их свойства;  ListCount,  Selected, Класс объектов Свойства CommandButton (кнопка) Caption (надпись) Значение по умолчанию Command1 Command2 ListBox (список) List(массив   вариантов выбора списка)  Новое  значение     12345 678910 Более подробные сведения об объектах и их свойствах можно найти в конце брошюры. Задание:   1)   Создать   форму,   расположив   на   ней соответствующие управляющие элементы, настроив их свойства. 2)   Составить   событийную   процедуру, которая   бы   при   выборе   информации   из левого   списка   и   нажатии   на   кнопку   переносила   в   правую   часть,   и   наоборот (). 3)  Сохранить проект в папке «Проекты». Примерный       образец       решения    : Private Sub Command1_Click() For i = List1.ListCount ­ 1 To 0 Step ­1 If List1.Selected(i) = True Then List2.AddItem (List1.List(i)) List1.RemoveItem (i) End If Next i End Sub Private Sub Command2_Click() For i = List2.ListCount ­ 1 To 0 Step ­1 If List2.Selected(i) = True Then List1.AddItem (List2.List(i)) List2.RemoveItem (i) End IfNext i End Sub