Практическое задание: «Знакомство с Visual Basic 6.0. Создание простейших программ»

Практическое задание: «Знакомство с Visual Basic 6.0. Создание простейших программ»

Автор: Сидорова Ольга Сергеевна

Должность: учитель информатики и ИКТ

Организация: ГКОУ ЛО «Лужская санаторная школа-интернат»

Год и место создания работы: 11.11.2013, ГКОУ ЛО «Лужская санаторная школа-интернат»
Практическая работа №1 «Проект Первая кнопка»
Поместите на форму: Label1 – присвойте ей имя «Первая программа», CommandButton1 – присвойте ей имя «Мотивация».
Выполните Вид - Код
Напечатайте следующий код:

Private Sub Мотивация_Click()
Print "Запомни: все будет хорошо, главное – верить!"
Print "Оптимизм – лучшее напрвление!"
End Sub

Практическая работа №2 «Проект Телеграмма из Простоквашино»
Поместите на форму: Label1 – в строке Caption на панели инструментов измените значение с Label1 на «Не меняй размер формы – иначе сотрешь текст!».
Поместите на форму: Label2 - в строке Caption на панели инструментов измените значение с Label1 на «Дважды щелкни по форме и телеграмму отправит Кот Матроскин».
Выполните Вид - Код
Напечатайте следующий код:

Private Sub Form_DblClick()

' ....... Телеграмма Кота Матроскина
Print "Здравствуй, Шарик!"
Print "Дядя Федор приезжает на каникулы в Простоквашино"
Print "Корова Мурка дала много молока"
Print "Гаврюша освоил новые команды"
Print "Почтальон Печкин спрашивал о твоем здоровье"

End Sub

Практическая работа №3 «Проект Выбор направления пути»
Поместите на форму: OptionButton1 – присвойте ей имя в строке Name «Налево», а в строке Caption значение «Налево пойдешь».
Поместите на форму: OptionButton2 – присвойте ей имя в строке Name «Направо», а в строке Caption значение «Направо пойдешь».
Поместите на форму CommandButton1 – присвойте ей имя в строке Caption «Пошел», в строке Name “пошел”.
Поместите на форме Label1 – присвойте ей имя в строке Name “текст”, в строке Caption «-пусто-».
Выполните Вид - Код
Напечатайте следующий код:
Private Sub пошел_Click()
If налево.Value = True Then текст = "Увидишь радугу"
If направо.Value = True Then текст = "Выйдешь к морю желаний"
End Sub

Заголовок 2HYPER15Основной шрифт абзаца

Приложенные файлы

  • doc visualbasic
    Размер файла: 31 kB Загрузок: 0