С параметрами

Цикл с параметрами

Для многократного выполнения одного или нескольких операторов предназначены циклы. 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+1/2+1/3+....+1/N.

  2. Дано натуральное число N. Вычислить: S=1-1/2+1/4-1/8+…+(-1)n*1/2n.

  3. Найти значение выражения 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))

  4. Вычислить значение выражения x-x^3/3!-x^5/5!...-x^n/n!

  5. Вычислить значение выражения x-x^3/3!+x^5/5!...x^n/n!

  6. Вычислить значение S, равное sinx+sinsinx+....+sinsin...sinx

  7. Вычислить значение выражения a*(a+1)*...(a+n-1)

  8. Среди двузначных чисел найти те, сумма квадратов цифр которых делится на K.

  9. Найти двузначные числа, в которых сумма цифр равна n.

@akaVeta