Оператор цикла 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 используются для отображения форм