Условия и циклы
Условные операторы относятся к управляющим операторам. Они используются для выполнения различных фрагментов программы в зависимости от выполнения некоторого условия. Существуют два основных типа условных операторов:
If … Then и Select Case
Однострочный оператор If:
Используется для выполнения одной задачи, если некоторое условие будет истинным:
If <условие> Then <действие>
Многострочный оператор If:
Используется для выполнения блока команд:
If <условие> Then
<действие1>
<действие2>
. . . . . . .
<действиеN>
End If
Операторы If . . . Then . . . Else
Используется, когда при верном условии нужно выполнить один блок команд, а при неверном – другой.
If <условие> Then
<блок команд1>
Else
<блок команд2>
End If
Оператор Select Case
Используется для выбора одной из нескольких блоков команд в зависимости от значения некоторой переменной. Выполняется тот блок команд, значение переменной для которого со значением переменной оператора Select Case.
Select Case <переменная>
Case <значение переменной1>
<блок команд1>
Case <значение переменной2>
<блок команд2>
. . . . . .
End Select
Пример:
Select Case Number
Case 1
MsgBox ”Number = 1”
Case 2
MsgBox ”Number = 2”
Case 3
MsgBox ”Number = 3”
Case Is > 3
MsgBox ”Nunber > 3”
End Select
Циклы For. . . Next
Циклы со счетчиком.
For <ПеременнаяСчетчика> = <Начало> To <Конец>
<команды>
Next <ПеременнаяСчетчика>
Цикл выполняется до тех пор, пока переменная счетчика не пройдет все значения от начала до конца. Иногда требуется прервать цикл досрочно – для этого в нужное место цикла ставят оператор Exit For.
Цикл Do While . . . Loop
Цикл с условием. Выполняется до тех пор, пока верно некоторое условие.
Do While <условие>
<команды>
Loop
Цикл Do Until . . . Loop
Цикл с условием. Выполняется до тех пор, пока условие ложно.
Do Until <условие>
<команды>
Loop
Самостоятельно
Создать приложение для решения квадратного уравнения (использовать оператор If).
Квадратное уравнение имеет вид Ax2 + Bx + C = 0
Корни квадратного уравнения находятся по формулам:
,
где D = b2
– 4ac
Уравнение имеет 2 корня, если D > 0
Уравнение имеет 1 корень в случае D = 0
Уравнение не имеет корней, если D < 0 (это отразить в сообщении программы c помощью MsgBox)
Форма:
Использование списков и полей со списками
Списки и поля со списками – самые удобные элементы для выбора пользователем выбора информации. Список – это массив строк, на который можно формально сослаться с помощью свойства List. Основные операции в списках и полях со списками заключаются в добавлении и удалении строк в свойство List списка двумя способами – при разработке (в свойствах) и во время выполнения программы.
Добавление строк в список во время разработки:
Добавить в форму элемент ListBox или ComboBox
Выделить этот элемент в форме.
В окне свойств в свойстве List набрать нужную строку. Чтобы добавить несколько строк – после добавления каждой нажимайте Ctrl+Enter.
Добавление строк во время выполнения программы:
Добавление строк производится с помощью метода AddItem:
Формат записи:
Object.AddItem StringToAdd
Например:
List1.AddItem “Яблоки”