Опзлдп:
Dim ReturnValue
'В следующих строках вызывается процедура, определѐнная пользователем
ReturnValue = ReturnTwice() ' Возвратит Null.
ReturnValue = ReturnTwice(2) ' Возвратит 4. ' Определение функции, вызываемой выше
Function ReturnTwice(Optional A)
If IsMissing(A) Then
' Если аргументы пропущены, возвратит Null.
ReturnTwice = Null
Else
' Если аргумент задан, то возвратит квадрат этого аргумента
ReturnTwice = A * 2
End If
End Function
14.9.7 IsNull
IsNull (expression) - мдлмнвн нскзцЯдсрю нс IsEmpty. Џ злдммн сдл, цсн бнжбпЯсзс False, дркз одпдлдммни дшя мд опзрбндмн жмЯцдмзд онркд нопдгдкдмзю. Опзлдп:
Dim MyVar, MyCheck
MyCheck |
= IsNull(MyVar) ' Возвратит False. |
||
MyVar |
= |
"" |
|
MyCheck |
= |
IsNull(MyVar) ' Возвратит False. |
|
MyVar |
= |
Null |
|
MyCheck |
= |
IsNull(MyVar) ' Возвратит True. |
|
14.9.8 IsNumeric
IsNumeric (expression) - БнжбпЯшЯдс True, дркз expression юбкюдсрю цзркнбъл
жмЯцдмздл.
Опзлдп:
Dim MyVar, MyCheck |
|
|
MyVar = |
"53" ' Задаѐм значение |
|
MyCheck |
= IsNumeric(MyVar) |
' Возвратит True. |
MyVar = |
"459.95" ' Задаѐм значение |
|
MyCheck |
= IsNumeric(MyVar) |
' Возвратит True. |
MyVar = |
"45 Help" ' Задаѐм |
значение |
MyCheck |
= IsNumeric(MyVar) |
' Возвратит False. |
|
|
|
14.9.9 IsObject
IsObject (identifier) - БнжбпЯшЯдс True, дркз одпдлдммЯю нащдйсмнвн сзоЯ.
Опзлдп:
Dim MyInt As Integer, YourObject, MyCheck
Dim MyObject As Object
Set YourObject = MyObject ' Задаѐм ссылку на объект
MyCheck = IsObject(YourObject) ' Возвратит True.
MyCheck = IsObject(MyInt) ' Возвратит False.
14.10K
14.11L
14.11.1LBound
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.
14.11.2LCase
LCase (string) - одпдбнгзс рспнйт б мземзи пдвзрсп.
Опзлдп:
Dim UpperCase, LowerCase
Uppercase = "Hello World 1234" ' Строка для конвертирования
Lowercase = Lcase(UpperCase) ' Возвратит строку "hello world 1234".
14.11.3Left
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".
14.11.4Len
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.
14.11.5LoadPicture
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
14.11.6Loc
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 ' Закрываем файл
14.11.7LOF
LOF (filenumber) - БнжбпЯсзс пЯжлдп уЯикЯ б аЯисЯф, нсйпъснвн нодпЯснпнл
Open.
Опзлдп:
Dim FileLength
Open "TESTFILE" For Input As #1 ' Открываем файл