На главную страничку учебника Visual Basic

Операторы VB (F-G)

Описание операторов, встроенных в Visual Basic 5, начинающихся с букв F-G

Список операторов, описанных в этом разделе:

• FileCopy
• For Each...Next
• For...Next
• Function
• Get
• GoSub
• GoTo

---F---

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

На главную страничку учебника Visual Basic