Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.37
Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.37

На первый взгляд особой разницы между рассмотренными циклами нет. На самом же деле она существует, и в процессе дальнейшего изучения программирования вы это поймете. А пока выберите для себя один-два цикла и используйте их при написании кодов.

Оператор Exit Do

Этот оператор используется, когда программу надо остановить до полного выполнения условия.

Возьмем один из приведенных выше примеров и остановим программу до выполнения поставленного в ней условия:

Dim a As Double А = Labe12.Top Do

A = a + 0.0001

Label1.Top = a

If a > 200 Then Exit Do

Loop While a > 300

Оператор перехода CoTo

Данный оператор остался от старых версий Visual Basic. Многие программисты считают его анахронизмом. Он несколько неудобен в работе, но зато прост и дает наглядное представление о работе цикла. Если вы не собираетесь хвастать своими кодами перед другими программистами, можете смело использовать его. Синтаксис в данном случае выглядит так:

Ml: X = X + 1

Инструкции

GoTo ml

В первой строке создаем так называемую метку Ml. Меткой может быть любое имя (в этом случае после нее надо ста-

Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста

Циклы For

вить двоеточие) или целое положительное число (тогда двоеточие не обязательно). Она указывает на начало цикла. Обратите внимание на оператор GoTo (перевод - «иди к»). Он указывает на необходимость возврата к метке Ml после завершения каждой итерации.

Поместим на форму кнопку Button и надпись Label (ближе к правому краю). Наберем код для события But ton_Click:

Dim a As Double Dim b As Double

a = Label1.Left

b = Labe11.Top

ml: a = a - 0.0001

b = b + 0.0001

Label 1. Left = a

Label 1. Top = b

If a > 300 Then GoTo ml m2: a = a - 0.0001

b = b + 0 Labell.Left = a Label1.Top = b If a > 100 Then GoTo m2 m3: a =a + 0

b = b + 0.0001

Labell.Left = a

Label1.Top = b

If b < 500 Then GoTo m3

Labe11.Text = "приехали"

Этот код состоит из трех циклов, которые задают различные направления движения объекта Labeil. Первый цикл направляет объект по диагонали, второй - по горизонтали, третий - по вертикали. Условие выполнения цикла задается с помощью оператора If...Then.


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta