КАТЕГОРИИ: Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748) |
End Select. Case оператор проверки условия n-1
Действие n-1 Case оператор проверки условия n-1 Действие 1 Case оператор проверки условия 1 Select Case переменная или выражение Оператор Select Case End If Оператор Else Операторы Else If выражение Then Операторы If выражение Then End If Несколько операторов Else (необязательно) Несколько операторов If условное выражение Then (Enter) If условие Then оператор1 Else оператор2 Условные операторы Wend Выражение While условие Loop Выражение Do While условие Loop While условие Выражение Do Loop Выражение Do Until условие Сложные неопределенные циклы End Sub Do Loop Until выполняется условие Выражение Do Неопределенные циклы End Sub Next I Dim I As Integer Определенные циклы Оператор For ___ Next For I% = 1 to 10 Print I% Next I% Цикл завершается не в тот момент, когда значение счетчика равняется конечному, а когда оно превышает его. Пример. Печать всеми доступными шрифтами экрана. Private Sub Form_Click() For I=0 to Screen.FontCount - 1 FontName = Screen.Fonts (I) Print “Это шрифт”; Screen.Fonts (I) Цикл может выполняться или нет в зависимости от результата, вычисляемого внутри цикла. § Оператор
Пример. Проверка пароля Private Sub Form_Load () X$ = InputBox$ (“Пароль?”) Loop Until X$ = “VB”
Для остановки бесконечного процесса используют клавиши “Break” или Run|End или необходимо закрыть приложение. В программе можно использовать оператор Exit Do (или Exit For), которые переводят программу к оператору, следующему после цикла. В неопределенных циклах проверка происходит в конце цикла, и счетчик увеличивается еще на 1. Иногда это вызывает лишнее обновление счетчика. Можно передвинуть проверку условия на начало цикла: или
В таких циклах можно объединять несколько условий, например
Do While X<=0 and txtDisplay.Text=“ “ : Loop
Например, While x>0 S = S+x Wend
Может быть несколько вложенных циклов. Любой Wend относится к ближайшему While. Do __ Loop дает лучшую структуру и гибкость цикла.
Например, If N>=0 and N<=9 Then Print “Ok” Else End
Если в выражении If __ Then обрабатывается несколько операторов, тогда используется так называемый блок If __ Then.
. . . Пример 1. Private Sub Form_QueryUnload(Cansel As Integer, UnloadMode As Integer) X % = MgBox(«Вы уверены?», VbYesNo) If X % = VbNo Then Cancel = True Else Cancel = False End IF End Sub
Пример 2.
If optColor1.Value Then Color$ = «Красный» ElseIf optColor2.Value Then Color$ = «Зеленый» ElseIf optColor3.Value Then Color$ = «Синий» Else Color$ = «Белый» End If Позволяет обрабатывать несколько вариантов выбора.
. . .
Пример: Select Case Ball Case Is < 13 Grade = 2
Case Is < 18 Grade = 3 Case Is < 22 Grade = 4 Case Else Grade = 5 End Select
Пример: Select Case Den Case 1 Print «Пн» Case 2 Print «Вт» . . . Case 7 Print «Вс» End Select
В фразе Case можно задавать значения переменной в виде диапазона
Select Case Den Case 1 to 5 Print «Рабочий день» Case Else Print «Выходной» End Select
либо перечислением возможных значений Select Case Den Case 6, 7 Print «Выходной» Case Else Print «Рабочий день» End Select
Дата добавления: 2014-12-10; Просмотров: 368; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |