---F---
FileCopy source, destination - копирует файл source в файл destination.
FileCopy "C:\Windows\Win.ini", "C:\Backups\Win.bak"
For Each...Next
Эта специфическая форма цикла For предназначена для выполнения некоторой операции с каждым объектом, входящим в состав некоторой коллекции объектов (такой операцией, например, может быть вызов метода или присваивание значения свойству). Синтаксис оператора:
For Each ИмяОбъекта In ИмяКоллекции
Операции над объектами
Next ИмяОбъекта
В этом примере показано, как изменить свойство BackColor у всех этикеток (Label), лежащих на форме
Dim x As Object
For Each x In Me.Controls
If TypeName(x) = "Label" Then
x.BackColor = 0
End If
Next x
For...Next
Этот оператор цикла используют в том случае, когда заранее известно стартовое и конечное значение счётчика. Синтаксис выглядит следующим образом:
For Счётчик_цикла = Старт To Стоп Step Шаг
Группа операторов
Next [Счётчик_цикла]
Роль счётчика цикла может играть только ранее объявленная переменная целочисленного типа. Шаг задаёт приращение счётчика цикла при каждом проходе. Умолчательно значение шага равно 1. После слова Next счётчик можно опустить.
В этом примере всем элементам массива iArray присваивается значение 5.
Dim c As Integer
Dim iArray(10) As Integer
For c = 0 To 10
iArray(c) = 5
Next c
Function
[Public | Private | Friend] [Static] Function name [(arglist)] [As type]
[statements]
[name = expression]
[Exit Function]
[statements]
[name = expression]
End Function
Этот оператор объявляет функцию с именем name и параметрами arglist.
Function CalculateSquareRoot(NumberArg As Double) As Double
If NumberArg < 0 Then ' проверяем аргумент
Exit Function ' Выходим из функции (возвращаясь на то место,
' откуда она была вызвана)
Else
CalculateSquareRoot = Sqr(NumberArg)
' Возвращает квадратный корень аргумента
End If
End Function
---G---
Get [#]filenumber, [recnumber], varname - Читает данные из открытого файла с номером filenumber в переменную varname. recnumber - задаёт позицию начала чтения.
' Тип, определяемый пользователем (должен находится в модуле).
Type Record
ID As Integer
Name As String * 20
End Type
Dim MyRecord As Record, Position ' Объявляем переменные
' Открываем файл с произвольным доступом (Random)
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
Position = 3 ' Устанавливаем позицию начала чтения
Get #1, Position, MyRecord ' Читаем одну запись
Close #1 ' Закрываем файл
GoSub line
...
line
...
Return
Это устаревший оператор перехода в псевдо-подпрограмму с возвращением по Return.
Я категорически НЕ рекомендую его использовать! Это избавит вас от ошибок и плохой читабельности кода. Вполне можно обойтись стандартной процедурой.
GoTo line - оператор для перехода на определённую метку. Пользуйтесь им только в крайних случаях.
Dim a, b As Integer
b = 5
a = 1
If a = 1 Then GoTo METKA
b = 10 ' Этот участок никогда не выполнится
METKA:
Debug.Print b ' Выведет цифру 5
|