VPF::Определение числа элементов одномерного массива

XPurple

Дата 15.9.2006, 07:23 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 140
Регистрация: 4.5.2006
Где: Челябинск

Репутация: 1
Всего: 1

Как определить количество элементов одномерного массива? Для коллекции есть параметр Count, а для массива что-то не могу найти.

--------------------

Кто никогда ни о чем не спрашивает: тот либо знает все, либо не знает ничего. Не помню, кто сказал, может быть, я (с)

mihanik

Дата 15.9.2006, 07:35 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109

XPurple.

Тебе поможет UBound.

Попробуй

Код


Private Sub Command1_Click()
    Dim A(5) As Integer
    
    MsgBox UBound(A)
    
End Sub

Цитата

LBound(arrayname[, dimension])

This function returns the smallest subscript
for the indicated dimension of an array. The arrayName variable is the name
of the array, and dimension is an integer indicating the dimension whose lower
bound will be returned. If dimension is omitted, the first dimension is assumed. The
LBound() function is used with the UBound() function, which returns the largest
subscript of a dimension of a given array, to determine the size of the array.

UBound(arrayname[, dimension])

This function returns the largest subscript
for the indicated dimension of an array. The arrayName variableis the name
of the array, and dimension is an integer indicating the dimension whose upper
bound will be returned. If dimension is omitted, the first dimension is assumed.
To scan all the elements of a one-dimensional array, use both the LBound() and
the UBound() functions. The following statements convert the elements of the
string array Strings() to uppercase:
Lower = LBound(Strings)
Upper = UBound(Srtings)
For i = Lower to Upper
Strings(i) = Ucase(Strings(i))
Next

IsArray(variable)

This function returns True if its argument is an array. If the
variable Names has been defined as:
Dim Strings(100)
the function:
IsArray(Strings)
returns True.

Добавлено @ 07:37
Динамическими массивами балуешься? smile

Кстати!
UBound может определить размерность и многомерного массива.
Точнее, каждого из его "измерений"....

--------------------

Программистами не рождаются, - это родовая травма...

XPurple

Дата 15.9.2006, 07:53 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 140
Регистрация: 4.5.2006
Где: Челябинск

Репутация: 1
Всего: 1

[q]Динамическими массивами балуешься? [/q]
С этим массивом

Код


Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
MembersArray() = CurrentUser.MemberOf

Спасибо за подсказку

Это сообщение отредактировал(а) XPurple - 15.9.2006, 07:54

--------------------

Akina

Дата 15.9.2006, 22:24 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

В общем случае

Код


CountOfElements = UBound(Array) - LBound(Array) + 1

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »