Расскажу немного о циклах. Ведь почти не одна, даже очень простенькая программа, не обходится без циклов. Циклы позволяют выполнить одну или несколько строк кода несколько раз. Visual Vasic поддерживает следующие конструкции:
Do...Loop
For...Next
ForEach...Next
Конструкция Do...Loop.
Возможно вы искали - Реферат: Замер степени использования процессора
Этот цикл используют в том случае, если Вам самим неизвестно сколько раз должен быть исполнен набор инструкций. Например вот короткая программа, которая просто считывает весь текст из файла:
1. Создайте на диске с: какой-нибудь текстовый файл (желательно несколько строк), допустим text.txt.
2. Впишите в модуль:
Sub Main()
объявляем переменную, которая принимает строки
Похожий материал - Доклад: Для чего нужна процедура Sub?
Dim Linia As String
объявляем переменную, которая будет содержать весь текст
Dim AllText As String
Open "c:\text.txt" For Input As #1 открываем файл text.txt для чтения
!!! запускаем цикл, который длится до тех пор, пока
Очень интересно - Реферат: Не много теории о Visual Basic
не будет достигнут конец файла 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)