|
|||||||
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция |
Динамические массивы
Динамическим называется массив, размерность которого определяется в ходе выполнения программы. Синтаксис описания массива: Dim <Имя массива>() As <Тип> Размерность массива устанавливается и изменяется с помощью инструкции ReDim <Имя массива>(<размерность>) Для установки и изменения размерности массива без потери его содержимого применяется инструкция ReDim Preserve<Имя массива>(<размерность>) Для определения параметров динамического массива используются функции: LBound(<Имя>[,<Размерность>]) Эта функция возвращает нижнюю границу указанной размерности массива. Ubound(<Имя>[,<Размерность>]) Данная функция возвращает верхнюю границу указанной размерности массива. Если размерность не указана, то подразумевается значение, равное 1. Пример: Sub Mas4() Dim a() As Integer Dim i As Integer, k As Integer, j As Integer, N As Integer Dim prom As Variant WorkSheets(“Лист1”).Select Cells.Clear k=2 i=0 Do Prom=InputBox(“Введите количество элементов N=) If Not IsNumeric(prom) Then MsgBox(“Повторите ввод!”) Loop Until IsNumeric(prom) N=prom ReDim a(1 to N) As Integer ‘Устанавливается фактическая размерность массива a ReDim Preserve a(1 to N) As Integer ‘Это другой вариант установки размерности массива а с сохранением значений его элементов Do‘Формирование массива а a(i)=Int(Rnd(i)*100) i=i+1 Loop Until i=N For j=1 To N ‘Вывод массива a на рабочий лист Cells(k,j+1)=a(j) Next j End Sub
Array(<Список аргументов>) С помощью такой инструкции создается массив типа Пример: Dim День As Variant День=Array(“Пн”, “Вт”, “Ср”, “Чт”, “Пт”, “Сб”)
IsArray(<Имя переменной>) Эта функция используется для проверки факта, является ли переменная типа Variant массивом. Она возвращает значение True, если переменная является массивом, и False в противном случае. Erase(<Список массивов>) С помощью этой инструкции повторно инициализируются элементы статических массивов и освобождается память, отведенная для динамических массивов. Список представляет собой имена очищаемых массивов, разделенных запятой. В статических массивах их элементам вместо чисел присваиваются нулевые значения, а строки переменной длины становятся пустыми. Поиск по сайту: |
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.003 сек.) |