Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Использование:
Do
<...операторы...>
Loop
Вгоняет комп в чуть менее, чем бесконечный цикл.
Например, всего 5ю строчками вражий комп можно повесить намертво (спасет только зажимание кнопки включения, приводящее к его аварийному отключениювынимание батареек), пишем в модуль:
(Совет: такую бяку надо глушить не по одиночке через диспетчер задач, а запустить taskkill /im virus.exe /f где virus.exe - имя плодящегося процесса, выполнять хоть из того же диспетчера задач)
Особо доставляет прописка такой бяки в автозагрузку, кстати. Но об этом позже.
Или другой пример (а здесь еще и использование случайного генератора чисел!)
Sub Main() Call Randomize random1 = Rnd If random1 < 0.75 ThenDo MsgBox "Хахахаха, ламерз маст дай!"LoopEnd IfEndEnd SubЧто делает код: сначала генерирует ряд случайных чисел,
затем записывает в переменную одно случайное число, и если оно меньше 0.75 (а случайное число всегда > 0 и < 1) то
начать цикл и постоянно выводить сообщение (есичо, Loop - "закрывающий" оператор для Do, как Next для For и End If для If). Лулзы заключаются в том, что жертва (если она конечно полный ламер) не сможет закрыть эту мессагу. Если она конечно вывалится - если случ.число больше 0.75 то прога просто выключится.
А теперь - цикл с условием - реализуется двумя способами. Предположим, что нам нужно для выхода из цикла, чтобы Х был = 1.
1ый способ:
do 'Здесь мог быть ваш код loop until x = 1Второй:
doif x <> 1 then 'Здесь мог быть ваш код elseexit do 'Выходим из цикла end ifloopДата публикования: 2015-02-03; Прочитано: 168 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!