Приложение:   tabl_funkz1.rar
tabl_funk2.rar

Занятие 30    Оператор цикла For . . . Next

Цикл со счетчиком For . . . Next используется тогда, когда заранее известно, какое число повторений необходимо выполнить.

Блок-схема

Общий вид оператора

Синтаксис оператора следующий:

• строка, начинающаяся с ключевого слова For, является заголовком цикла,
•  строка с ключевым словом Next - концом цикла,
• между ними располагаются операторы, являющиеся телом цикла.

Алгоритм выполнения оператора For . . . Next

1. Значение переменной Счетчик устанавливается равным НачЗнач.
2. Проверяется условие Счетчик <= КонЗнач ?
3. Если условие выполняется, то выполняется тело цикла. Переменная Счетчик изменяется на величину шага: Счетчик = Счетчик + шаг.
4. Когда переменная Счетчик достигает величины КонЗнач, происходит выход из цикла и выполняются следующие за ним операторы.

Преждевременный выход из цикла программист может организовать при помощи конструкции Exit For. При этом происходит автоматический выход из цикла и управление передается следующей за циклом команде.

Пример 1. 

       Проект "Табулирование функции у=sin(x) на интервале [a;b]"

Блок - схема и интерфейс проекта

Программный код

    Private Sub Button1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Button1.Click

       Dim a, b , i As Short
       Dim y As Single
        a = Val(TextBox1.Text)
        b = Val(TextBox2.Text)

        For i = a To b
            y = System.Math.Sin(i)
            ListBox1.Items.Add("i=  " & i &  vbTab  & "    y=   " &  Format(y, "0.##"))
        Next i
    End Sub

    Private Sub Button2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Button2.Click

        TextBox1.Text = ""
        TextBox2.Text = ""
        ListBox1.Items.Clear()
    End Sub

    Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick
        Label5.Text = TimeOfDay   '   Свойству Interval  элемента Timer1 присвоить значение = 500
    End Sub

PS!!!

Аналогично: 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, b, i As Short       
        Dim y, h  As Single
        a = Val(TextBox1.Text)
        b = Val(TextBox2.Text)
        h = Val(TextBox3.Text)
        If a <> 0 And b <> 0 Then
            For i = a To b Step (h + h / 2)
                y = System.Math.Sin(i)
                ListBox1.Items.Add("i=" &  Format(i, "00.##") &  vbTab  &  vbTab  &  "y= "  &  Format(y, "00.##"))

            Next
            ListBox1.Items.Add("i=" & Format(i, "00.##"))

        Else

            ListBox1.Items.Add("не корректный ввод данных")

        End If

    End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox1.Items.Clear()
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox1.Focus()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Focus()
    End Sub

продолжение

• 2017 Февраль