Циклы с предусловием и постусловием vba

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

• #
• #
• #
• #
• #
• #
• #
• #
• #
• #
• #

Урок из серии: «Программирование на Visual Basic.NET для школьников»

Существует несколько разновидностей циклов с неизвестным числом повторений.

На прошлом уроке мы рассмотрели цикл с предусловием Do While.

На этом уроке познакомимся с ещё одной разновидностью цикла с условием — циклом с постусловием, научимся его использовать.

Цикл называется циклом с постусловием, если условие выхода из цикла стоит в конце, после тела цикла.

Цикл с постусловием реализуется с помощью конструкции  Do . . . Loop Until.

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

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

Проект «Проверка номера»

Смоделируйте ситуацию проверки правильности набора номера телефона в городе N. Будем считать, что телефон набран верно, если количество набранных цифр соответствует длине телефонного номера для данного города.

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

1. Создайте интерфейс по образцу.
2. Установите для текстового поля значение свойства MaxLength равным 9 (максимальное количество цифр, которое  позволяется ввести в поле),  выберите для надписи  label2 значение свойства BorderStyle равным  Fixed3D.
3. В окне редактора кода после строки
   «Код, автоматически созданный конструктором форм Windows»
   введите строку кода:
   Const nmax = 6  ‘Константа, определяющая длину набора в данном городе
4.  Наберите программный код процедуры Button1_Click:
   Dim n As Integer ‘Введенный номер
   Dim k As Byte ‘Счетчик цифр
   n = Val(TextBox1.Text)
   k = 0
   Do
   k = k + 1
   n = n 10
   Loop Until n = 0
   If k = nmax Then
   Label2.Text = “Соединение возможно” : Beep()
   ElseIf k < nmax Then
   Label2.Text = “Неправильно набран номер: не хватает цифр”
   Else
   Label2.Text = “Неправильно набран номер: слишком много цифр”
   End If
5. Запустите программу несколько раз для проверки всех возможных ситуаций.
6. сохраните программу.

Проект «Простые множители»

Требуется создать программу разложения произвольного целого числа на простые множители. Предлагается следующий алгоритм: сначала число делится на 2 до тех пор, пока не станет нечетным. Затем оно делится последовательно на 3, 5, 7, пока результат леления не станет равным 1.

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

1. Создайте интерфейс по образцу.
2. С помощью окна Свойства  задайте следующие значения свойств:
   

   Объект	Свойство	Значение
   Form1	Text	«Простые множители»
   Label1	TextTextAlign	«Введите число:» MiddleCenter
   TextBox1	TextMax Length TextAlign	пусто 10 Center
   Button	Text TextAlign	«Разложить» MiddleCenter
   Label2	Text TextAlign BorderStyle	пусто MiddleCenter Fixed3D

   Для текстового поля TextBox1 свойство MaxLength задает максимальную длину числа при вводе данных с клавиатуры.

3. Наберите текст программы
   ‘ Разложение на простые множители
   Dim n, n1 As Integer ‘Исходное число и его дубликат
   Dim del As Byte ‘Простой делитель
   Dim str As String ‘Строка для вывода
   n = Val(TextBox1.Text)
   del = 2
   n1 = n
   Str = “”
   Do
   If n Mod del = 0 Then
   n = n del
   ‘В строку добавляется новый множитель
   str = str & CStr(del)
   ‘Выводится “*” после всех множителей, кроме последнего
   If n <> 1 Then str = str & “*”
   Else
   ‘После “2” все простые множители нечетны
   If del = 2 Then del = 3 Else del = del + 2
   End If
   Loop Until n = 1
   Label2.Text = n1 & “=” & str
4. Сохраните программу.
5. Доработайте программу таким образом, чтобы она подсчитывала количество множителей.
6. Введите проверку на равенство подсчитанного количества множителей единице. Если равенство выполняется, выведите сообщение, что введенное число является простым
7. Сохраните доработанную программу.

До встречи на следующем уроке.

Доброго времени суток! Данную статью я решил посвятить рубрике по основам программирования в Visual Basic for Application. И сегодня мы поговорим о циклах в VBA, разберём их синтаксис и рассмотрим несколько примеров, которые часто встречаются программисту.

Сначала напомню, что цикл — процесс повторения части кода, выполняемый, пока не будет выполнено или нарушено заданное нами условие.

В данной статье мы разберём синтаксис и примеры следующих циклов в VBA:

• For
• For each
• While
• Until

Цикл For в VBA

Dim mas(5) As Integer
For i% = 0 To 4
mas(i) = Int((10 * Rnd) + 1)
Next i

Обратите ваше внимание, что в этом примере используется неявное объявление при работе с циклами в VBA. i% — означает неявное объявление переменной i в формате integer. Такая конструкция по сути заменяет следующую: dim i as integer. Это используется для сокращения кода и для удобства написания и чтения. В старых версиях VBA необходимо указывать знак формата после каждого использования неявной переменной. В более поздних версиях достаточно всего один раз.

Function expr(x As Integer) As Integer
expr = 5 * x + 5
End Function
Sub CodeTown()
Dim i As Integer
For i = -10 To 10 Step 1
If expr(i) = 0 Then MsgBox “При Y = 0, Х = “+ CStr(i)
Next i
End Sub

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

Function expr(x As Integer) As Integer
expr = 5 * x + 5
End Function
Sub CodeTown()
Dim i As Integer
For i = -10 To 10 Step 1
If expr(i) = 0 Then
MsgBox “При Y = 0, Х = “+ CStr(i)
Exit For
End If
Next i
End Sub

C помощью команды Exit можно закончить выполнение любого цикла в VBA. Достаточно указать после Exit название используемого цикла. Также им возможно завершить работу любой процедуры или функции.

Цикл For Each в VBA

For Each ws In ThisWorkbook.Worksheets
MsgBox ws.Name
Next ws

For Each element In UserForm1.Controls
If InStr(1, UserForm1.Controls.Item(i%).Name, “Label”) > 0 Then
UserForm1.Controls.Item(i%).TextAlign = fmTextAlignCenter
UserForm1.Controls.Item(i%).Font.Size = 20
i% = i% + 1
End If
Next element

Тут следует понимать, что через Controls можно обратиться к любому элементу формы. Если отфильтровать по имени, например, как мы сделали выше, то можно выделить группы элементов и изменить их свойства. В данном случае, размер шрифта и выравнивание.

Цикл While в VBA

Dim mas(5) As Integer
For i% = 0 To 4
mas(i%) = Int((10 * Rnd) + 1)
Next i
Dim count As Integer, temp As Integer
count = 1
Do While count > 0
count = 0
For i% = 0 To 3
If mas(i) > mas(i + 1) Then
temp = mas(i)
mas(i) = mas(i + 1)
mas(i + 1) = temp
count = count + 1
End If
Next i%
Loop

В вышеуказанном примере мы отсортировали массив с рандомными значениями в порядке возрастания. Метод пузырька считается достаточно долгим, но простым в реализации. В основном, им сортируют небольшие числовые массивы.

Цикл Until в VBA

Dim temp As Variant
Do
temp = InputBox(“Введите число”)
Loop Until IsNumeric(temp)

Почему заставить? Потому, что если пользователь закроет окно ввода, это его не спасёт, оно будет появляться вновь и вновь пока он не введёт любое число.

На этом мы закончим. Сегодня мы рассмотрели важную тему циклов в VBA, разобрали основные примеры. Конечно все примеры по этой обширной теме сложно разобрать, но, тем не менее, основы вы должны понять. Оставляйте ваши комментарии, если у вас возникли вопросы.
Скачать исходник