Оператор цикла for…next

Правила использования такие же как и в кубейсик.

Синтаксис оператора цикла For...Next и схема его работы в общем виде следующие:

FOR счетчик=нач_знач TO кон_знач [STEP шаг_цикла]

тело_цикла

NEXT счетчик

Например:

FOR i = 1 TO 5 P = P + i NEXT i

Для i от 1 до 5 (с шагом 1) выполнять: P = P + i Взять следующее i (i = i + 1)

Или:

FOR i = 1 TO 5 STEP 0.5 P = P + i NEXT i

Для i от 1 до 5 с шагом 0.5 выполнять: P = P + i Взять следующее i (i = i + 0.5)

Пример:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim N, i, S As Integer

N = CInt(InputBox("Введите N: "))

S = 0

For i = 1 To N

S = S + i

Next i

lblResult.Text = "Сумма чисел от 1 до " & CStr(N) _

& " равна " & CStr(S)

End Sub

Еще один пример:

Представить в виде обыкновенной несократимой дроби сумму заданных А (А1000) обыкновенных дробей.

Входные данные: целое число А, затем А числителей и знаменателей дробей-слагаемых. Каждый числитель – целое число, не превосходящее по модулю 1000, знаменатель – натуральное число, не большее 1000.

Выходные данные: числитель и знаменатель суммы.

Например, пусть количество дробей А равно трем, а сами дроби, которые надо сложить равны 1/2,1/2,1/4 Тогда сумма будет равна 5/4.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim a, b, c, d, i, g, m, n As Integer

Dim str As String

' Вводим количество дробей

a = CInt(InputBox("Введите количество дробей: "))

' Вводим первый числитель и знаменатель

c = CInt(InputBox("числитель: "))

d = CInt(InputBox("знаменатель: "))

' Сразу начинаем формировать строку для вывода рез-та

str = "Сумма " & CStr(c) & "/" & CStr(d)

For b = 1 To a - 1

' Вводим следующую дробь

m = CInt(InputBox("следущий числитель "))

n = CInt(InputBox("следующий числитель "))

' Продолжаем формировать строку для вывода рез-та

str = str & " + " & CStr(m) & "/" & CStr(n)

' прибавляем новую дробь к предыдущей сумме

c = c * n + d * m

d = d * n

' находим наиб. общий делитель в цикле

For i = 1 To c

If c Mod i = 0 And d Mod i = 0 Then g = i

Next i

' сокращаем дробь

c = c / g

d = d / g

Next b

' Продолжаем формировать строку для вывода рез-та

str = str & " равна " & CStr(c) & "/" & CStr(d)

' Выводим результат в надпись

lblResult.Text = str

End Sub

Для того что бы запускать форму первой необходимо указать ее в поле start object

Методы showDialog и show используются для отображения форм