как определить количество элементов в массиве

[vrodo]

Lbound(array) - нижняя граница
Ubound(array) - верхняя граница

Пример

Код: Выделить всё

Dim Lower
Dim MyArray(1 To 10, 5 To 15, 10 To 20)    ' Declare array variables.
Dim AnyArray(10)
Lower = Lbound(MyArray, 1)    ' Returns 1.
Lower = Lbound(MyArray, 3)   ' Returns 10.
Lower = Lbound(AnyArray)   ' Returns 0 or 1, depending on
   ' setting of Option Base.

То же для Ubound
Удачи

[Cyrax]

дико извиняюсь, но я недописал одну важную вещь, это не просто VB но VBA (будь он неладен) - там нет UBound - собственно поэтому вопрос и встал

не надо извинений. и с VBA все впорядке есть в нем функция UBound. как же без нее

Код: Выделить всё

Sub Макрос1()
    Dim i(10) As Integer
    Dim s As Integer
   
    s = UBound(i)
    MsgBox s
End Sub

писано в Word VBA-редакторе.

[Cyrax]

ха, забавно
об этих то функциях я знал, только незнал как они точно пишутся, набираю UB и пихаю кнопку дописывания функций, там их нет, я и решил что все, конец, кина не будет

еще как забавно. доходит до того, что функция автозавершения на одной машине для определенной функции (встроенной) работает нормально, зато на соседней - не дает никакого эффекта (причем, для той же самой функции). такой глюк наблюдается и в VBA- и VB-IDE.
так что, иногда надо, все-таки, обращатся к справочной информации, или ObjectBrowser'у

[skiperski]

На UBound(), LBound(), Open, Put, Get, Input и ещё на некоторые функции и команды языка функция автозавершения почему-то не распространяется. И не только в VBA.

[gaidar]

Это к парням из Редмонда, но в .NET таких багов уже нет, там все, что можно, закрывается само .

[GSerg]

На UBound(), LBound(), Open, Put, Get, Input и ещё на некоторые функции и команды языка функция автозавершения почему-то не распространяется. И не только в VBA.

Всё правильно. В списке автозавершения появляется только то, что есть в Object Browser. По умолчанию последний не покаазывает скрытые элементы. Если заставить их показать, то в числе прочих появится _HiddenModule, содержащий Array, Input, Width и получение указателей. После этого Input появится в списке автозавершения.
А Open, Get - это вообще не функции, это конструкции языка, их там и не должно быть. К примеру, никого ведь не удивляет, что нельзя автозавершить слово Then?

[skiperski]

Вах! Маладэц! Харашо сказал!