2017-10-25
472
В приведенных ниже примерах, реализующих различные варианты организации регулярных циклических алгоритмов, число повторений цикла – n может быть определено через граничные значения и шаг изменения параметра следующим образом: 
, где m1 и m2, соответственно, нижняя и верхняя граница изменения параметра цикла, а h – шаг изменения параметра. Квадратные скобки здесь обозначают получение целой части.
В примере на рис. 4.5.1-2 тело цикла будет выполняться 10 х 2=20 раз, при условии что переменная g не будет равна 2, в примере на рис. 4.5.1-3 тело цикла будет выполняться 5 раз.
| For i = 1 To 10 For j = 1 To 2 'тело внутреннего цикла If g = 2 Then Exit For Next j Next i |
Рис. 4.5.1-2. Фрагмент использования вложенных операторов For...Next
Примера 4.5.1-1
| For a = -5 To -7 Step -0.5 m = СStr(Sin(a)) MsgBox("m=" & m) Next a |
Рис. 4.5.1-3. Фрагмент использования оператора For...Next с отрицательными параметрами Примера 4.5.1-1
В примере на рис. 4.5.1-4 тело цикла будет выполняться три раза, так как шаг по умолчанию равен единице; первая итерация: i=1, А=3; вторая итерация: i=2, А=6; третья итерация: i=3, А=18.
|
|
|
| Dim i, A As Integer A = 3 For i = 1 To 3 A = A * i Next i |
Рис. 4.5.1-4 Фрагмент использования оператора For...Next
для нахождения произведения с шагом 1 Примера 4.5.1-1
| Dim i, A As Integer A = 3 For i = 3 To 1 Step -1 A = A * i Next i |
Рис. 4.5.1-5. Фрагмент использования оператора For...Next
для нахождения произведения с шагом -1 Примера 4.5.1-1
На рис. 4.5.1-5 тело цикла будет выполняться три раза: первая итерация: i=3, А=9; вторая итерация: i=2, А=18; третья итерация: i=1, A=18.
Изначально цикл на рис. 4.5.1-6 должен выполнить 100 итераций, но, поскольку при значении счетчика, равном 50, выполняется оператор Exit For, будет произведено всего 50 итераций.
| Dim i As Integer For i = 1 To 100 If i = 50 Then Exit For Next i |
Рис. 4.5.1-6. Фрагмент использования оператора For...Next
с оператором Exit For Примера 4.5.1-1
| Dim i As Integer For i = 1 To 1000 Next i ' Пустой цикл может использоваться для задержки времени |
Рис. 4.5.1-7. Пример использования оператора For...Next
для реализации пустого цикла Примера 4.5.1-1
До сих пор мы использовали элемент управления TextBox для ввода или вывода одной строки, а для вывода нескольких строк текста использовали элемент управления ListBox. Однако в элемент управления TextBox можно выводить и несколько строк текста. Для вывода нескольких строк в элемент управления TextBox надо установить свойство Multilineэлемента управления TextBox в значении True, а свойство ScrollBars– в значение Vertical. При использовании этих простых настроек объект однострочного текстового поля становится объектом многострочного текстового поля с полосами прокрутки, облегчающими доступ к нему.
