2 Этап Работа с готовыми программами

Пример проекта: Площадь фигуры

Абстрактный класс

MustInherit Class Figure

Public MustOverride Function Ploshad() As Single

End Class

Класс четырехугольник

Class Quadrangle

Inherits Figure

Private a, h As Single ('Сторона четырехугольника)

Public Sub New(ByVal a1 As Single, ByVal h1 As Single)

a = a1 ('Конструктор)

h = h1

End Sub

Public Overrides Function Ploshad() As Single

Return a * h ('Реализуем метод Ploshad)

End Function

End Class

Класс круг

Class Circle

Inherits Figure

Private r As Single ('Радиус)

Public Sub New(ByVal r1 As Single)

r = r1 ( 'Конструктор)

End Sub

Public Overrides Function Ploshad() As Single

Return Math.PI * r * r ('Реализуем метод Ploshad)

End Function

End Class

3 Этап Составление программ

12. Методика введения понятия “Команда выбора case”

3 этапа обучения: 1) Подготовительный этап предназначен для введения терминологии. 2) Этап работы с готовыми документами предназначен для осознания и усвоения учениками работы с электронными документами с использованием электронных инструментов. 3) Этап построения документа предназначен для формирования приемов построения электронных документов с использованием электронных инструментов.

1 Этап Подготовительный

1.Команды выбора предназначены для управления ходом выполнения программы.

2.Команды выбора организуются следующими операторами:

Select Case X

Case X1

блок1

Case X2 to X3

блок2

Case Is > X4

блок3

Case Else

блок4

End Select

Оценивается значение переменой X: 1 значение; диапазон от X2 до X3; условие.

3.Условия применимости команд выбора:

Команда Case применяется при множественном выборе по одному параметру. Во всех остальных случаях применяется команда IF.

2 Этап Работа с готовыми программами

Пример программы: Проект День недели

dim NomerWeek As Integer

dim NameWeek As String

Select Case NomerWeek

Case 1

NameWeek = "понедельник"

Case 2

NameWeek = "вторник"

Case 3

NameWeek = "среда"

Case 4

NameWeek = "четверг"

Case 5

NameWeek = "пятница"

Case 6

NameWeek = "суббота"

Case 7

NameWeek = "воскресенье"

Case Else

NameWeek = "такого дня не существует"

End Select

lblName.Text = NameWeek