---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
| 
