Используются для выполнения повторяющихся операций.
For … Next
ForEach … Next
Do … Loop
Цикл For … Next
Повторяет выполнение группы инструкций, указанное число раз
Синтаксис
For Счётчик [As Тип Данных] = Начало To Конец [Step Шаг]
Инструкции
Exit For
Next [счётчик]
Аргумент «Счётчик» определяет имя переменной, которая будет считать количество циклов. Тип данных для неё можно указать до цикла, либо непосредственно в нём. Цикл For выполняется от начала до конца с указанным шагом. Если шаг не указан, то он равен единице(1). Конструкция Exit For – альтернативный выход из цикла. Пример: найдём сумму элементов массива с помощью оператора цикла.
Dim A As Variant
A=Array(1, 4, 12, 23, 34, 3, 8)
S=0
For i=LBound (A) To UBound (A)
S=S+A(i)
Next i
Цикл ForEach … Next
Этот цикл служит для обработки всех элементов некоторого набора объектов или массива. Особенно удобно его применять в случае, когда не известно количество обрабатываемых элементов.
For Each элемент [As тип данных] In Группа
операторы
Next элемент
For Each objContril As control In Controls
objControl.Text=”Test” &objControl
Next objControl
При прохождении цикла For Each никак не определён порядок выбора элементов, поэтому, если этот порядок имеет значение, то лучше использовать стандартный цикл For Next.
Цикл Do … Loop
а) DoWhile … Loop = Do … Loop
Выполняется до тех пор, пока истинно задаваемое в цикле условие.
DoWhile условие
операторы
Loop
Аргумент условие является логическим выражением, значение которого проверяется перед каждым прохождением цикла. Если условие истинно, то выполняются операторы. При таком расположении конструкции может оказаться, что условие ложно и операторы не выполнятся ни разу.
Do
операторы
Loop While условие
б) DoUntil … Loop
Это цикл, который выполняется, пока условие ложно или не станет истинным.
DoUntil условие
операторы
Loop
Do
операторы
LoopUntil условие
Пример:
Do
Пароль = InputBox(“Введите пароль”)
Loop Until Пароль=”привет”
Конструкция With … End With
Этот оператор используется, когда происходит работа с одним и тем же объектом. С его помощью ускоряется выполнение процедуры и отпадает необходимость ввода лишнего текста.
Синтаксис
With объект
операторы
End With
Пример для текстового поля:
With TextBox1
text=”добрый день”
ForeColor=System.Drawing.Color.Green
Font=NewFont.FontStyle.Bold
End With
Это конструкция работает с текстовым полем 1.
Конструкция Using … End Using
С помощью ключевого слова Using упрощается освобождение экземпляров класса после использования. Например: если требуется провести гарантированную очистку реестра ресурсов после завершения использования некоторого объекта. Совместно с этой конструкцией работает метод Dispose, в котором и происходит освобождение ресурсов и в случае использования объектов типов файлов происходит их гарантированное закрытие. Она помогает очищать память от информации, которая не должна храниться на компьютере.
Оператор Exit
Оператор безусловного перехода Exit помогает прерывать цикл до его завершения и передать управление следующей конструкции после цикла. Применяется со всеми видами циклов, а также с процедурами Sub и Function
For счётчик [As типданных]
операторы
Exit For
операторы
Next
Do{While, Until} условие
операторы
Exit Do
операторы
Loop
Exit, при появлении какого то цикла, может быть сколько угодно.
S=0
Do While
x=InputBox(“Введите число”)
If Not IsNumeric (x) Then Exit Do
S=S+x
Loop
Dim x, y, z As Integer
Do Until y=-1
If x<0 Then Exit Do
x=sqrt(x)
If y>0 Then Exit Do
y=y+3
If z=0 Then Exit Do
z=x/y
Loop
Оператор Continue
Этот оператор позволяет немедленно перейти к следующей процедуре цикла. Может использоваться во всех циклах. Пример:
Dim I As Integer
For i= 1 To 4
If i=2 Then Continue (i)
Next
Применяется в любом виде цикла. При вводе данных – это клавиатура, а при выводе – экран.
Объект My
Этот объект облегчает использование функциональных возможностей Visual Basic NET. Классы объекта My предоставляют доступ к ресурсам компьютера, позволяя напрямую обращаться к функциям, методам и свойствам платформы «.Net Framework». Объект My содержит следующие основные классы:
а) Application
Позволяет получить информацию о приложениях и их сервисах используемых в программной среде.
б) Computer
Предназначен для работы с данными, связанными с компьютером. Например: вывод данных на принтер, копирование, перемещение, удаление файлов и каталогов.
My.Computer.Audio.Play(“C:\Beep.way”)
в) Forms
Формы для создания пользовательского интерфейса. Позволяет применять возможности технологии RAD (быстрая разработка приложений) при создании пользовательского интерфейса.
г) Resources
Присоединяет различные ресурсы к приложению. Например: если в проекте есть рисунок, то обратиться к нему можно следующей строкой.
My.Resources.Picture
д) User
Предоставляет доступ к информации о текущем пользователе приложения.
If My.User.IsAuthenticated Then
If My.User.Is In Role(“Administrators”)Then
MsgBox “Добрый день, администратор”
End If
End If
