КАТЕГОРИИ: Архитектура-(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 Sub. Цикл Do с предусловием
Do End Sub Do End Sub Loop End Sub Loop Цикл Do с предусловием Синтаксис: Do [While|Until] <условие> Если выбрано служебное слово While, то цикл продолжается, пока выполняется условие; если Until – то прекращается, когда условие выполняется. Цикл Do с постусловием Синтаксис: Do Значение служебных слов цикла аналогично циклу с предусловием, но здесь сначала выполняются действия в блоке, а затем проверка выхода из цикла. В обоих циклах Do для досрочного выхода из цикла используется команда Exit Do.
Пример: выделение определенного значения (равного 7) из последовательности случайных чисел 1. Sub DoWhileLoop() Dim Number As Integer Number = 0 Do While Number <> 7 Number = Int (10 * Rnd ()) MsgBox "Your number is " & Number & "." 2. Sub DoUntilLoop() Dim Number As Integer Number = 0 Do Until Number = 7 Number = Int (10 * Rnd ()) MsgBox "Your number is " & Number & "." 3. Sub DoLoopUntil() Dim Number As Integer Number = Int (10 * Rnd ()) Loop Until Number = 7 MsgBox "Your number is " & Number & "." 4. Sub DoLoopWhile() Dim Number As Integer Number = Int (10 * Rnd ()) Loop While Number <> 7 MsgBox "Your number is " & Number & "." Управляющая инструкция Select - Case
Позволяет в зависимости от значения переменной или выражения выполнять один из нескольких фрагментов кода. Пример: Sub SelectCase() Dim Score As Integer Score = Int (100 * Rnd ()) Select Case Score Case 0 To 33 MsgBox "Score: " & Score & Chr(13) & _ "You are in the first third." Case 34 To 66 MsgBox "Score: " & Score & Chr (13) & _ "You are in the second third." Case 67 To 100 MsgBox "Score: " & Score & Chr (13) & _ "You are in the last third."
Дата добавления: 2014-01-07; Просмотров: 264; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |