С параметрами
Цикл с параметрами
Для многократного выполнения одного или нескольких операторов предназначены циклы. Visual Basic предлагает две конструкции: цикл For. . .Next дает возможность устанавливать число проходов цикла, а цикл Do... Loop завершается при выполнении заданного условия.
For...Next
Цикл For. . .Next является самой старой и самой простой конструкцией:
For <Счетчик> = <Начальное_значение> То <Конечное_значение> [Step <Шаг>]
Операторы
Next [Счетчик]
В начале выполнения цикла значение Счетчик устанавливается в начальное значение. При каждом проходе переменная Счетчик увеличивается на 1 или на величину шаг. Если она достигает или становится больше (меньше, при отрицательном шаге) Конечное значение, то цикл завершается и выполняются следующие операторы. Разность между начальным и конечным значением, деленная на величину шага, составляет число проходов:
For I = 1 То 10
Print I * 100 Next I
For L = 100 To 5 Step k0.5
X k Y * L Next
For II = 1 To 5
For 12 = 10 To 20 Print II + 12
Next 12 Next II 'Или ..(Next 12,11)
В этом примере представлены разные конструкции циклов For.. .Next. Часто для вычислений внутри цикла используются числовые переменные:
'(General)(Declaration) Dim
aArray(1997 To 2050) Private Sub
Comniandl_Click ()
For I = LBound(aArray) To UBound(aArray) Print
aArray (I)
Next I End
Sub
В этом примере выводится все содержимое массива. Для безусловного выхода из цикла используется оператор Exit For.
Задачи, которые можно скачать с комментариями и исходниками
Найти сумму числовой последовательности 1+1/2+1/3+....+1/N.
Дано натуральное число N. Вычислить: S=1-1/2+1/4-1/8+…+(-1)n*1/2n.
Найти значение выражения a=(cos(1)/sin(1))*((cos(1)+cos(2))/(sin(1)+sin(2))*...*((cos(1)+cos(2)+...cos(n))/(sin(1)+sin(2)+...sin(n))
Вычислить значение выражения x-x^3/3!-x^5/5!...-x^n/n!
Вычислить значение выражения x-x^3/3!+x^5/5!...x^n/n!
Вычислить значение S, равное sinx+sinsinx+....+sinsin...sinx
Вычислить значение выражения a*(a+1)*...(a+n-1)
Среди двузначных чисел найти те, сумма квадратов цифр которых делится на K.
Найти двузначные числа, в которых сумма цифр равна n.
@akaVeta