LBound

LCase

Left

Len

LoadPicture

Loc

LOF

Log

LTrim

Mid

Minute

Month

MsgBox

L

LBound(arrayname[, dimension]) - возвращает минимально возможую границу размерности массива в заданном заданном измерении.

Пример:

Dim Lower
Dim MyArray(1 To 10, 5 To 15, 10 To 20) 'Объявляем массивы
Dim AnyArray(10)

Lower = Lbound(MyArray, 1) ' Возвратит 1.
Lower = Lbound(MyArray, 3) ' Возвратит 10.
Lower = Lbound(AnyArray) ' Возвратит 0 или 1, в зависимости от
' установленной настройки Option Base.

LCase(string) - переводит строку в нижний регистр.

Пример:

Dim UpperCase, LowerCase
Uppercase = "Hello World 1234" ' Строка для конвертирования
Lowercase = Lcase(UpperCase) ' Возвратит строку "hello world 1234".

Left(string, length) - Возвращает часть строки, начиная с первого символа до указанного номера.

Пример:

Dim AnyString, MyStr
AnyString = "Hello World" ' Определяем строку
MyStr = Left(AnyString, 1) ' Возвратит "H".
MyStr = Left(AnyString, 7) ' Возвратит "Hello W".
MyStr = Left(AnyString, 20) ' Возвратит "Hello World".

Len(string | varname) - Возвращает длину строки string или количество байт, занимаемых переменной varname.

Пример:

Type CustomerRecord ' Определяем свою запись
ID As Integer ' Кладём это определение в модуль
Name As String * 10
Address As String * 30
End Type

Dim Customer As CustomerRecord
Dim MyInt As Integer, MyCur As Currency
Dim MyString, MyLen

MyString = "Hello World" ' Инициализация переменной
MyLen = Len(MyInt) ' Возвратит 2.(кол-во байт, занимаемых переменной)
MyLen = Len(Customer) ' Возвратит 42.
MyLen = Len(MyString) ' Возвратит 11. (длину строки)
MyLen = Len(MyCur) ' Возвратит 8.

LoadPicture([stringexpression]) - Загружает картинку в переменную типа Picture или элементы PictureBox и Image.

Пример:

Private Sub Form_Click ()

Dim Msg As String
On Error Resume Next ' Устанавливаем обработку ошибки
Height = 3990
Width = 4890 ' Устанавливаем высоту и ширину в твипах
Set Picture = LoadPicture("PAPER.BMP") ' Загрузка картинки
If Err Then
Msg = "Не могу найти .BMP файл."
MsgBox Msg ' Отобразим ошибку
Exit Sub ' Выходим, если ошибка имела место
End If
Msg = "Нажмите ОК для очистки формы от картинки."
MsgBox Msg
Set Picture = LoadPicture() ' Очищаем форму от картинки.

End Sub

Loc(filenumber) - возвращает номер текущей позиции в файле, открытом binary методом.

Пример:

Dim MyLocation, MyLine
Open "TESTFILE" For Binary As #1 ' Открываем существующий файл
Do While MyLocation < LOF(1) ' Зацикливаемся пока не конец файла
MyLine = MyLine & Input(1, #1) ' Читаем символ в переменную
MyLocation = Loc(1) ' Получаем текущую позицию в файле
' и выводим её в окно Immediate
Debug.Print MyLine; Tab; MyLocation
Loop
Close #1 ' Закрываем файл

LOF(filenumber) - Возвратит размер файла в байтах, открытого оператором Open.

Пример:

Dim FileLength
Open "TESTFILE" For Input As #1 ' Открываем файл
FileLength = LOF(1) ' Получаем длину файла
Close #1 ' Закрываем файл

Log(number) - вычисляет натуральный логарифм числа number. (Возвращает тип Double).

Пример:

Dim MyAngle, MyLog
' Устанавливаем угол в радианах
MyAngle = 1.3
' Вычисляем обратный гиперболический синус
MyLog = Log(MyAngle + Sqr(MyAngle * MyAngle + 1))

Ф-ция Log вычисляет натуральный логарифм (т.е. по основанию e). Для того, чтобы получить логарифм по основанию n нужно произвести следующее вычисление:

Logn(x) = Log(x) / Log(n)

LTrim(string) - Возвратит строку без лидирующих пробелов.

Пример:

Dim MyString, TrimString
MyString = " <Trim> " ' Устанавливаем строку,
' у которой слева и справа по одному пробелу
TrimString = LTrim(MyString) ' Получили строку "<-Trim-> "
' (т.е. без пробела слева)

M

Mid(string, start[, length]) - Возвращает строку, извлечённую из строки string, начиная с символа в позиции start, и содержащую length символов.

Пример:

Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo" ' Создаём текстовую строку
FirstWord = Mid(MyString, 1, 3) ' Возвратит строку "Mid".
LastWord = Mid(MyString, 14, 4) ' Возвратит строку "Demo".
MidWords = Mid(MyString, 5) ' Возвратит строку "Function Demo".

Minute(time) - Возвратит число минут (от 0 до 59) содержащимся в параметре Time. В примере всё яснее.

Пример:

Dim MyTime, MyMinute
MyTime = #4:35:17 PM# ' Присваиваем время
MyMinute = Minute(MyTime) ' MyMinute содержит 35.

Month(date) - то же, что и выше, только возвратит число дней в параметре date.

Пример:

Dim MyDate, MyMonth
MyDate = #February 12, 1969# ' Присваиваем дату
MyMonth = Month(MyDate) ' MyMonth содержит 2.

MsgBox(prompt[, buttons] [, title] [, helpfile, context]) - Выводит на экран окно сообщения (Message Box) которое будет ждать клика на одной из кнопок. Возвращает число Integer, по которому можно определить какую кнопку нажал пользователь.

Пример:

Этот пример выводит на экран критическую ошибку с кнопками Yes и No.

Dim Msg, Style, Title, Response, MyString
Msg = "Do you want to continue ?" ' Устанавливаем текст сообщения
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Устанавливаем стиль
Title = "MsgBox Demonstration" ' Устаналиваем заголовок (Caption).

Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
MyString = "Yes"
' Выполняем какие-то действия, если пользователь выбрал Yes
Else
MyString = "No"
' Выполняем какие-то действия, если пользователь выбрал No
End If