3. 3 Объектно-ориентированное программирование

Объектно-ориентированное программирование (ООП) — парадигма программирования, в которой основными концепциями являются понятия объектов. Объектно-ориентированный подход заключается в следующем наборе основных принципов:

1. Всё является объектом.

2. Вычисления осуществляются путём взаимодействия (обмена данными) между объектами. Объекты взаимодействуют, посылая и получая сообщения. Сообщение — это запрос на выполнение действия.

3. Каждый объект имеет независимую память.

4. Каждый объект является представителем (экземпляром) класса, который выражает общие свойства объектов.

5. В классе задаётся поведение (функциональность) объекта. Тем самым все объекты, которые являются экземплярами одного класса, могут выполнять одни и те же действия.

Таким образом, программа представляет собой набор объектов, имеющих состояние и поведение. Объекты взаимодействуют посредством сообщений. Естественным образом выстраивается иерархия объектов: программа в целом — это объект, для выполнения своих функций она обращается к входящим в неё объектам, которые, в свою очередь, выполняют запрошенное путём обращения к другим объектам программы.

3.4. Операторы ветвления и цикла языка Visual Basic 6.0

Оператор условного перехода.

Формат однострочного оператора If.

If условие Then [then-последовательность] [Else else-инструкции]

Пример.

If X>2 Then Y=0.5 Else Y=15

Формат многострочного оператора If.

If логическое выражение Then [блок операторов] [ElseIf логическое выражение Then ] [elseif-операторы] ... [Else [else-операторы]] End If

Пример.

If S<5 Then

X=8

A=11

Else

X=0

End if

Ключевое слово Elself позволяет объединить функции Else и следующего вложенного If.

Оператор выбора.

Select Case проверяемое выражение Case выражение 1

блок операторов

Case выражение 2

блок операторов

. . . . .

Case Else

блок операторов

End Select

Например:

X = InputBox (“Введите целое число”)

Select Case X

Case 1

MsgBox “Число равно 1”

Case 2

MsgBox “Число равно 2”

Case 4 to 7

MsgBox “Число от 4 до 7”

End select

Операторы цикла.

Оператор цикла For ... Next. Синтаксис оператора следующий:

For K = начальное значение То конечное значение [Step шаг]

[блок операторов]

[Exit For]

[блок операторов]

Next K

Где К – переменная, используемая как счетчик циклов.

По умолчанию шаг изменения переменной К равен 1.

Пример.

For I=1 TO 20

X=x+1

Next I

Для досрочного выхода из цикла предназначена команда Exit For.

Пример. Выдать на экран четные числа от 0 до 100.

For k=0 To 100 Step 2

Text1.text=Text1.text + STR(k) & “ ”

Next k

Пример. Сгенерировать 5 случайных целых чисел в диапазоне от 1 до 36.

For I=1 To 5

X=INT(36*RND +1)

Text1.text=Text1.text+STR(X) + “ ”

Next I

Оператор цикла While . . . Wend. Синтаксис оператора следующий:

While условие

Операторы

Wend

Цикл выполняется, пока заданное условие выполняется.

Пример. Бросок игральной кости.

Dim N, ochki as integer

Randomize

Ochki=Int(6*RND + 1)

N=1

While ochki<6

N=N+1

Ochki= Int(6*RND + 1)

Wend

MsgBox “Шестерка выпала на ” & N & “броске”

Оператор цикла Do . . . Loop Until. Синтаксис оператора следующий:

Do

Операторы

Loop Until условие

Сначала выполняется цикл, а затем проверяется условие. Если условие выполнилось, цикл завершается.

Пример.

Do

X=InputBox (“Введите пароль”)

Loop Until X = ”АИС”

Для досрочного выхода из цикла – команда Exit Do.