Категория
Информатика
Тип
реферат
Страницы
6 стр.
Дата
30.10.2008
Формат файла
.rtf — Rich Text Format (Wordpad)
Архив
20551.zip — 7.49 kb
  • o-polze-ciklov_20551_1.rtf — 32.67 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо


Текст работы

О пользе циклов.
Расскажу немного о циклах. Ведь
почти не одна, даже очень простенькая программа, не обходится без циклов.
Циклы позволяют выполнить одну или несколько строк кода несколько раз
. Visual Vasic поддерживает следующие конструкции:
Do ... Loop
For ... Next
For Each ...
Next
Конструкция DLoop.
Этот цикл используют в том случае, если Вам самим неизвестно сколько раз
должен быть исполнен набор инструкций. Например вот короткая программа,
которая просто считывает весь текст из файла:
1. Создайте на диске с: какой-нибудь текстовый файл (желательно несколько строк), допустим t.
2. Впишите в модуль:
Sub Main()
объявляем переменную, которая принимает строки
Dim Linia As String
объявляем переменную, которая будет содержать весь текст
Dim All As String
Open "c:\t" For Input As #1 открываем файл
t для чтения
!!! запускаем цикл, который длится до тех пор,
пока
не будет достигнут конец файла EOF ( End Of File) !!!
Do Until EOF(1)
Line Input #1, Linia вводим линию за линией в переменную Linia
записываем каждую новою линию + переход на новую строку
All = All + Linia + Chr(13) + Chr(10)
Loop
Close #1 закрываем файл
MsgBox All выводим на экран сообщение
End Sub
Это пример показал, что программист не знает КОГДА наступит конец файла,
но задал условие прекратится как только конец файла будет достигнут. Теперь о том, как можно работать с этим циклом.
Во-первых, можно создавать конструкции со словами Until и While:
Do [Until | While] условие
Если установленно ключевое слово While, то цикл будет запускаться



Ваше мнение



CAPTCHA