Loop Until Условие
Тело цикла выполняется до тех пор, пока Условие ложно, иначе выполнение цикла заканчивается. При этом хотя бы один раз цикл выполнится в любом случае.
Пример 1:
Private Sub Command1_Click()
Dim i As Integer
i = 0
Do Until i > 9
i = i + 1
Form1.Print i
Loop
End Sub
Пример 2:
Private Sub Command1_Click()
Dim i As Integer
i = 0
Do
i = i + 1
Form1.Print Tab(10); i
Loop Until i > 9
End Sub
Пример 3:
Private Sub Command1_Click()
Dim i As Integer
i = 0
Do
i = i + 1
Form1.Print Tab(10); i
Loop While i < 10
End Sub
Перечень используемого оборудования
Персональный компьютер
Задание
3. 1. Выведите на экран в строку все числа первой сотни, оканчивающиеся на пять.
3. 2. Выведите на экран в строку все числа первой сотни, но только четные.
3. 3. Выведите на экран в строку все числа первой сотни, но только нечетные.
3. 4. Выведите на экран в строку сумму всех четных чисел первой сотни.
3. 5. Выведите на экран в строку произведение всех нечетных чисел первой сотни.
3. 6. Создать проект, который определяет среднее арифметическое введенных чисел. Количество чисел заранее не известно.
3. 7. Создать проект, который определяет сумму введенных чисел. Количество чисел заранее не известно.
3. 8. Создать проект, который определяет максимальное значение из введенных чисел. Количество чисел заранее не известно.
3. 9. Создать проект, который определяет минимальное значение из введенных чисел. Количество чисел заранее не известно.
3. 10.Создать проект, который определяет четные значения из введенных чисел, выводит их на форму. Количество чисел заранее не известно.
3. 11.Создать проект, который определяет нечетные значения из введенных чисел, выводит их на форму. Количество чисел заранее не известно.
3. 12.Создать проект, который определяет количество введенных чисел. Количество чисел заранее не известно.
3. 13.Создать проект, который определяет положительные значения из введенных чисел, выводит их на форму. Количество чисел заранее не известно.
3. 14.Создать проект, который определяет отрицательные значения из введенных чисел, выводит их на форму. Количество чисел заранее не известно.
3. 15.Создать проект, который определяет сумму минимального и максимального значений из введенных чисел. Количество чисел заранее не известно.
Работа в лаборатории
4.1.Ознакомиться с теоретическим материалом.
4.2.Выполнить предложенные задания.
4.3.Продемонстрировать результаты выполнения заданий.
Контрольные вопросы
5.1 Что такое цикл? Типы циклов?
5.2 Какие форматы циклов с условием вам известны?
5.3 Как организуется и работает оператор Do While …Loop?
5.4 Как организуется и работает оператор Do Until …Loop?
5.5 Как организуется и работает оператор Do …Loop While?
5.6 Как организуется и работает оператор Do …Loop Until?