Урок 10
Тема. Использование вложенных комманд IF.
Цели:
1. Вырабатывать практические навыки в использовании вложенных комманд IF. Переменные типа «Datа».
2. развивать навыки создания проектов;.
3. воспитывать дисциплинированность, ответственность, интерес к программированию на Visual Basic.
Ход урока.
1. Орг. Момент.
2. Актуализация.
·Использование вложенных инструкций IF.
С помощью дополнительной инструкции в блоке IF можно проверять несколько условий.
Инструкция Else If позволяет задавать новое условие, если 1 условие не выполняется.
С помощью инструкции Else If можно проверять любое количество условий.
Она имеет формат:
3. В полном виде в блоковой форме синтаксис этой инструкции будет выглядеть следующим образом:
If Условие1 Then
группа операторов1
ElseIf Условие2 Then
группа операторов2
..............
ElseIf УсловиеN Then
группа операторовN
Else
Последняя группа операторов
End If
3. Новая тема: Переменные типа «Datа».
· Рассказ учителя:
a. Для работы с датой используется формат, при котором знаяения должны располагаться между знаками #.
Например: a = #1/21/2009#
b = #2/18/2009#
Объявление переменных типа «Datа» :· Dim b1 As Date
· Dim c As Date
Практическая работа.Задача.
Создать проект Знаки зодиака, окно формы которого содержит поле - с соответствующей надписью. При нажатии левой кнопкой мышки на этом поле на экран выводились бы поля с названиями знаков, а при нажатии на названии – знак его изображения. При двойном щелчке на названии знака его изображение изымается. Названия знаков зодиака ниже приведены:
Водолей 2
Рыбы 1
Овен 2
Телец 20
Близнецы 2
Рак 23.6, - 2
Лев 2
Дева. 2
При вводе даты вводить только число и месяц
Алгоритм работы:
1. Разместить на форме объекты(см рис)
Рис 2
Рис 3
Код для водолея и овена. Остальное доделать самим
Option Explicit
Private Sub Label2_Click()
Dim a As Date
Dim b As Date - объявляем переменные типа Дата
Dim a1 As Date
Dim b1 As Date
Dim c As Date
a = #1/21/2009# ( такие значения должны быть у переменных
b = #2/18/2009# сначала пишем № месяца а потом № даты)
a1 = #2/19/2009#
b1 = #3/20/2009#
c = InputBox("Введите дату и номер месяца Вашего дня рождения")
If c > a And c < b Then
Label3.Visible = True ( блоковая форма ветвления)
ElseIf c > a1 And c < b1 Then
Label4.Visible = True
End If
End Sub
Private Sub Label3_Click()
If Label3.Visible = True Then Image1.Visible = True
End Sub
Private Sub Image1_dblClick()
Image1.Visible = False
Label3.Visible = False
End Sub
Private Sub Label4_Click()
If Label4.Visible = True Then Image2.Visible = True
End Sub
Private Sub Image2_dblClick()
Image2.Visible = False
Label4.Visible = False
End Sub
Итог урока. Выставление оценок.