Повторение действий в программе: использование цикла For... Next
Обновлен: Ноябрь 2007
На этом занятии будет рассказано, как использовать оператор For...Next для повторения действий в программе и для подсчета того, сколько раз были выполнены эти действия.
При написании программы часто бывает необходимо повторять действия. Например, предположим, что нужно написать метод для отображения ряда чисел на экране. Для этого нужно повторить строку кода, которая выводит числа, необходимое число раз.
Цикл For...Next позволяет указать число, а затем повторить код внутри этого цикла указанное количество раз. В следующем примере показано, как цикл For...Next описывается в коде.
Dim i As Integer = 0
For i = 1 To 10
DisplayNumber(i)
Next
Цикл For...Next начинается с переменной-счетчикаi. Это переменная цикла, используемая для подсчета того, сколько раз он был выполнен. Следующая строка (For i = 1 to 10) сообщает программе, сколько раз требуется повторить цикл, а также описывает возможные значения переменной i.
Выполнение цикла For...Next начинается с переменной i, содержащей первое значение (в данном случае —1). Затем программа выполняет строки кода между строками For и Next, в этом случае вызывая метод DisplayNumber с параметром i (в данном случае также равным 1).
При достижении строки Next1 добавляется к переменной i, и выполнение программы переходит обратно к строке For. Это повторяется до тех пор, пока значение i не станет больше, чем второе число в строке For, в этом случае 10. Как только это произойдет, выполнение программы продолжится со строки кода после строки Next.
Практическое задание
Для использования оператора For... Next
В меню Файл выберите команду Создать проект.
В диалоговом окне Создание проекта в области Шаблоны выберите Приложение Windows.
В поле Имя введите ForNext и нажмите кнопку ОК.
Откроется новый проект Windows Forms.
Из Панели элементов перетащите один элемент управления TextBox и один элемент Button на форму.
Дважды щелкните элемент Button, чтобы открыть редактор кода.
В обработчик событий Button1_Click введите следующий код:
Dim i As Integer = 0 Dim NumberOfRepetitions As Integer = CInt(Textbox1.Text) For i = 1 To NumberOfRepetitions MsgBox("This line has been repeated " & i & " times") NextНажмите клавишу F5 для запуска программы.
В текстовом поле введите число и нажмите кнопку.
Окно сообщения появится столько раз, сколько было указано в текстовом поле.
Следующие действия
В этом разделе было рассмотрено, как использовать цикл For...Next для повторения кода заданное число раз. Теперь можно перейти к следующему занятию серии Программный выбор между двумя возможностями. Оператор If... Then или изучить другой тип цикла в разделе Подробное рассмотрение. Повторения операций в цикле Do... While или Do... Until, пока не будет выполнено условие.
См. также
Задачи
Как заставить компьютер что-то делать. Написание первой процедуры