Реферат: О пользе циклов

Расскажу немного о циклах. Ведь почти не одна, даже очень простенькая программа, не обходится без циклов. Циклы позволяют выполнить одну или несколько строк кода несколько раз. Visual Vasic поддерживает следующие конструкции:

Do...Loop

For...Next

ForEach...Next

Конструкция Do...Loop.

Этот цикл используют в том случае, если Вам самим неизвестно сколько раз должен быть исполнен набор инструкций. Например вот короткая программа, которая просто считывает весь текст из файла:

1. Создайте на диске с: какой-нибудь текстовый файл (желательно несколько строк), допустим text.txt.

2. Впишите в модуль:

Sub Main()

объявляем переменную, которая принимает строки

Dim Linia As String

объявляем переменную, которая будет содержать весь текст

Dim AllText As String

Open "c:\text.txt" For Input As #1 открываем файл text.txt для чтения

!!! запускаем цикл, который длится до тех пор, пока

не будет достигнут конец файла EOF ( End Of File) !!!

Do Until EOF(1)

Line Input #1, Linia вводим линию за линией в переменную Linia

записываем каждую новою линию + переход на новую строку

AllText = AllText + Linia + Chr(13) + Chr(10)

Loop

Close #1 закрываем файл

MsgBox AllText выводим на экран сообщение

End Sub

Это пример показал, что программист не знает КОГДА наступит конец файла, но задал условие прекратится как только конец файла будет достигнут. Теперь о том, как можно работать с этим циклом.

Во-первых, можно создавать конструкции со словами Until и While:

Do [Until | While] условие

Если установленно ключевое слово While, то цикл будет запускаться до тех пор, пока условие истинно, а Until "крутит" цикл пока условие ложно. Сейчас объясню. В нашем примере стоит

Do Until EOF(1)

--> ЧИТАТЬ ПОЛНОСТЬЮ <--