Четверг, 14.11.2019, 21:35
Главная | Регистрация | Вход Приветствую Вас Гость | RSS


Меню сайта


Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Тестування онлайн
тестування онлайн 


Социальные закладк

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

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

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

Блок-схема

 

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

For Счетчик = НачЗнач To КонЗнач [Step шаг]
   Тело цикла
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(Text
Box2.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 = ""
        Text
Box2.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

 

продолжение

Форма входа
Поиск
Календарь
«  Ноябрь 2019  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
252627282930
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • Рейтинг@Mail.ru
    Copyright MyCorp © 2019
    Конструктор сайтов - uCoz