Шаг 18 - Инструкция Error

Erase списокМассивов

Шаг 17 - Инструкция Erase

End Sub

End If

End

Dim Password, Pword

Sub Form_Load

PassWord = "МОЙ_ПАРОЛЬ"

Pword = InputBox("Введите пароль”)

If Pword <> PassWord Then

MsgBox "Неправильный пароль"

Повторно инициализирует элементы массивов фиксированной длины и освобождает память, отведенную для динамического массива.

Параметры
списокМассивов: Обязательный аргумент списокМассивов представляет имена одной или нескольких очищаемых переменных массивов, разделенных запятой.

Замечания
Важно знать, имеет ли массив фиксированный размер (обычный массив) или является динамическим, поскольку инструкция Erase выполняется по-разному, в зависимости от типа массива. Инструкция Erase не освобождает память для массивов фиксированной длины. Инструкция Erase устанавливает элементы массивов фиксированной длины следующим образом:

· Массив чисел - Присваивает каждому элементу значение 0.

· Массив строк(переменной длины) - Присваивает каждому элементу значение пустой строки ("").

· Массив строк(фиксированной длины) - Присваивает каждому элементу значение нуля.

· Массив типа Variant - Присваивает каждому элементу значение Empty.

· Массив определяемого пользователем типа - Присваивает каждому элементу значение, как отдельной переменной.

· Массив объектов - Присваивает каждому элементу специальное значение Nothing.

Erase освобождает память, используемую динамическими массивами. Перед тем как из программы вновь станет возможна ссылка на динамический массив, необходимо переопределить размерности переменной массива с помощью инструкции ReDim.

Пример
В данном примере инструкция Erase используется для повторной инициализации элементов массивов фиксированной длины и освобождения памяти, отведенной для динамического массива.

' Объявляет переменные-массивы.

Dim NumArray(10) As Integer ' Массив значений типа Integer.

Dim StrVarArray(10) As String ' Массив строк переменной длины.

Dim StrFixArray(10) As String * 10 ' Массив строк фиксированной длины.

Dim VarArray(10) As Variant ' Массив типа Variant.

Dim DynamicArray() As Integer ' Динамический массив.

ReDim DynamicArray(10) ' Занимает память.

Erase NumArray ' Каждый элемент становится равным 0.

Erase StrVarArray ' Каждый элемент становится пустой строкой ("").

Erase StrFixArray ' Каждый элемент становится равным 0.

Erase VarArray ' Каждый элемент становится пустым.

Erase DynamicArray ' Освобождает память, используемую массивом.

Имитирует возникновение ошибки.

Дата добавления: 2015-06-27