Операторы.

Управляющие структуры языка

 

 

По порядку: FileCopy

For Each...Next

For...Next

Function

Get

GoSub

GoTo

 

 

FileCopy source, destination - копирует файл source в файл destination.

Пример:

FileCopy "C:\Windows\Win.ini", "C:\Backups\Win.bak"

 

For Each...Next

 

For...Next

 

[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

 
 
Вернутся на главную   Вернутся на предыдущую.
Rambler's Top100   

 

Сайт управляется системой uCoz