Урок 26

Урок 26.

Комманда повторения и ее описание языком программирования "Visual Basic".

Практическая работа № 10. «Описание и реализация найпрос­тейших циклических программ».

Цели:

1.  Вырабатывать практические навыки в использовании комманды повторения и ее использование во время создания проектов.

2.  развивать навыки создания проектов;.
3. воспитывать дисциплинированность, ответственность, интерес к программированию на Visual Basic.

Ход урока.

I.  Орг. Момент.

II.  Новая тема.

1.  Цикл For…Next

Основная форма циклов в Visual Basic – цикл For…Next. Он имеет следующий синтаксис:

For Счётчик=НачальноеЗначение To КонечноеЗначение

‘Повторяющиеся действия

Next Счётчик

- Счётчик – это переменная, которая имеет числовой тип (Integer или Long) и объявляется программистом.

- НачальноеЗначение – число, с которого начинается отсчёт.

- КонечноеЗначение – число, которым заканчивается отсчёт.

Например:

For I = 0 To 100 ’ Если переменная I в диапазоне от 0 до100, то

I +1 ‘ Прибавляем к переменной по единице, пока переменная не достигнет 100.

Next ’Заканчиваем цикл.

По умолчанию значение счётчика равно 1, можно поменять значение на другое:

For I = 0 To 100 Step 5 ’ Если переменная I в диапазоне от 0 до100, то

I +1 ‘ Прибавляем к переменной по единице, пока переменная не достигнет 100.

Next ’Заканчиваем цикл.

Теперь значение “шага” равно пяти и задаются числа 5, 10, 15 и т. д.

Или можно пустить счётчик в обратном направлении:

For I = 10 To 1 Step -1 ‘ Если I в пределах от 10 до 1 и отнимаем по единице

‘Повторяющиеся действия

Next

2.  Цикл Do…Loop

Цикл Do…Loop используется, когда точное количество повторений заранее неизвестно или вы хотите дождаться, когда пользователь выполнит какое-нибудь условие.

Цикл Do...Loop может выполняться бесконечно:  

Do

‘Повторяющиеся действия.

Loop

Цикл с условием выглядит так:

Do While X<10

X=X+1

Loop

Цикл продолжается до тех пор, пока значение переменной остаётся меньше 10.

Вместо ключевого слова While может использоваться ключевое слово Until, но тогда вместо условия продолжения вычислений формируется условие завершение. Например:

Do Until X=10

X=X+1

Loop

Аналогично предыдущему, программа выйдет из цикла, когда переменная достигнет значения 10.

III.  Практическая работа.

Задача 1.

Для примера приведу небольшую программу, которая показывает, как можно использовать циклы для заполнения текстовых полей.

Разместите на форме кнопку, задайте в её свойствах: Caption: Цикл ; Name: CmdGo. Разметите на форме 8 TextBox `ов, в свойствах у ВСЕХ: Name: Text1 ; Index: от 0 до 7.

Внимание!!! Элементы можно различать не только по имени, а и по дополнительному значению (Index), когда все элементы имеют одинаковое имя(как в нашем случае). Различаться они будут так: Text1(0) – первый TextBox, Text1(1) – второй и т. д.

 

Напишите код для кнопки (событие Click):

Private Sub cmdGo_Click()

Dim i As Byte ‘Объявляем переменную как числовую короткую.

For i = 0 To 7 ‘ Для i от 0 до 7

Text1(i).Text = "i= " & i ‘ Заполняем каждый TextBox(со значением I, для того, чтобы числа становились по порядку) числами.

Next ‘ Выходим из цикла.

End Sub

Сохраните и запустите проект. Нажмите на кнопку и все TextBox`ы заполнятся числами от 0 до 7.

 

Задача 2. Найти сумму положительных нечетных чисел, вводимых с клавиатуры.

Private Sub Комманда1_Click()

Const n As Integer = 5

Dim x, y, i, z As Integer, s As String

y = 0

z = InputBox(" Сколько чисел будете вводить?")

If z > n Then

s = MsgBox("Ввод чисел с клавиатуры невозможен")

ElseIf z <= n Then

For i = 1 To z

x = InputBox(" Введите число с клавиатуры")

Текст1.Text = x

If x > 0 And x Mod 2 <> 0 Then

y = y + x

End If

Next i

End If

Текст2.Text = y

End Sub

Private Sub Комманда2_Click()

End

End Sub

Задача 3. После щелчка на кнопку должен появиться запрос на ввод имени пользователя. После ввода имени введенное имя пользователя видим в текстовом поле; а запрос снова появляется и т. д. до бесконечности. Прекращается появление запроса только после ввода текста "Готово". Написать программу с использование циклов Цикл Do…Loop

Option Explicit

Private Sub Command1_Click()

Dim InpName As String

Do

InpName = InputBox("Введите ваше имя или наберите Готово для выхода.")

If InpName <> "Готово" Then Text1.Text = InpName

Loop Until InpName = "Готово"

End Sub

2 вариант программного кода:

Private Sub Command1_Click()

Dim InpName As String

Do While InpName <> "Готово"

InpName = InputBox("Введите ваше имя или наберите Готово для выхода.")

If InpName <> "Готово" Then Text1.Text = InpName

Loop

End Sub