Дек
4th

Урок 12. Оператор цикла For . . . Next

Рубрика: Visual Basic.NET для школьников | Автор:admin

Урок из серии: “Программирование на Visual Basic.NEN для школьников”

На предыдущем занятии вы познакомились с элементом управления ComboBox (Комбинированный список).
На этом занятии мы продолжим изучение операторов языка Visual Basic.Net, остановимся на операторах цикла.
Циклические алгоритмические структуры бывают трех видов:

  1. циклы со счетчиком, в которых тело цикла выполняется определенное количество раз;
  2. циклы для обработки массивов или коллекций;
  3. циклы по условию, в которых тело цикла выполняется, пока условие истинно (или до тех пор, пока условие не станет истинным).

На этом уроке рассмотрим оператор цикла со счетчиком (For . . . Next). Напишем проект с использованием этого оператора.

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

Блок-схема

Visual-Basic.NET-For-Next

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

For Счетчик = НачЗнач To КонЗнач [Step шаг]
   Тело цикла
Next [Счетчик]

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

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

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

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

Проект “Доход по вкладу”

Написать проект, который начисляет доход по вкладу, обеспечивает расчет простых и сложных процентов. Простые проценты начисляются в конце срока вклада, сложные – ежемесячно и прибавляются к первоначальной сумме вклада и в следующем месяце проценты начисляются на новую сумму. Рекомендуемый вид формы приведен на рисунке.

Технология выполнения

  1. Создать новый проект. Назвать его “Доход по вкладу”.
  2. Разместите на форме 4 надписи Label, 3 текстовых поля TextBox, нарисуйте элемент управления GroupBox , добавьте два переключателя в группу путем рисования каждого элемента внутри группы.

    Visual-Basic.NET-Urok12-2

    В нижней части формы поместите кнопку  и еще одну надпись (Label4)   для вывода результатов.

  3. Настроить свойство Text для всех  объектов формы и для самой формы в соответствии с образцом.

    Visual-Basic.NET-Urok12-3

    Для переключателя RadioButton1 для свойства Checked задайте значение True (при загрузке формы первый переключатель должен быть включен).

  4. Написать процедуру-обработчик события  Button1_Click:

       Dim sum As Single   'Сумма вклада
       Dim pr As Single    'Процентная ставка
       Dim srok As Integer 'Срок вклада
       Dim dohod As Single 'Доход по вкладу
       Dim buf As Single
       Dim i As Integer
       ' Плучение исходных данных
       sum = Val(TextBox1.Text)
       srok = Val(TextBox2.Text)
       pr = Val(TextBox3.Text)
       If RadioButton1.Checked = True Then
          'выбран переключатель Простые проценты
          dohod = sum * (pr / 100) * (srok / 12)
       Else
          'выбран переключатель Сложные проценты
          buf = sum
          For i = 1 To srok
              buf = buf + buf * (pr / 100)
          Next i
          dohod = buf - sum
       End If
       sum = sum + dohod
       Label4.Text = "Доход: " + Str(dohod) + vbNewLine + "Сумма вклада: " + Str(sum)
  5. Напишите программный код процедур-обработчиков для событий  RadioButton1_CheckedChanged и RadioButton1_CheckedChanged. При изменении схемы вычисления процентов очищается области вывода (Label4.Text).

     Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object,
            Label4.Text = ""
     End Sub
    
     Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object,
          Label4.Text = ""
     End Sub
  6. Запустить программу и выполнить несколько раз для проверки всех возможный ситуаций.

  7. Сохранить проект

В этом уроке было показано, как использовать цикл For…Next для повторения кода заданное число раз.

В следующем уроке будет описан элемент управления PictureBox, показано применение цикла For . . . Next при работе с файлами.

Следующий урок: Оператор цикла For … Next и элемент управления PictureBox

Поделиться с друзьями


Оставить комментарий или два