Массивы

[Morion]

Как создавать массивы, и для чего они нужны?

[Viper]

Однако... вопрос вопросов... такого я еще не видел... Еще более печальным будет вопрос: Как создавать переменные и для чего они нужны?

[Morion]

Однако... вопрос вопросов... такого я еще не видел...

Ну это же форум для новичков, так? Тогда чего удивляться? Ну незнаю я ничего про эти массивы. Лучше бы чё-нибудь полезное написал...

[VVitafresh]

Я думаю на этом форуме ликбез никто проводить не будет. Купи лучше умную книжку. В любой из них (особенно для начинающих) все будет разжевано и разложено по полочкам.

[Roman-vb]

Зачем мучать человека? может он переучивается с другого языка
Morion
так знай же :
Variables declared with Dim at the script level are available to all procedures within the script. At the procedure level, variables are available only within the procedure.
You can also use the Dim statement with empty parentheses to declare a dynamic array. After declaring a dynamic array, use the ReDim statement within a procedure to define the number of dimensions and elements in the array. If you try to redeclare a dimension for an array variable whose size was explicitly specified in a Dim statement, an error occurs.
Note When you use the Dim statement in a procedure, you generally put the Dim statement at the beginning of the procedure.
The following examples illustrate the use of the Dim statement:

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

Dim Names(9)       ' Declare an array with 10 elements.
Dim Names()        ' Declare a dynamic array.
Dim MyVar, MyNum   ' Declare two variables.

[Amed]

C какого-какого переучивается? С албанского?

[mdx]

А в албанском что нет даже массивов? Однако неудобно наверно на нем писать...

[alibek]

Массивы создаются оператором Dim, размеры изменяются оператором ReDim. Массив может быть одномерным или многомерным, в каждом измерении указывается нижняя граница (по умолчанию 0 или 1) и верхняя граница. Dim D1(2), D2(2, 1 To 10) As Long, D3(0 To 9, 0 To 9, 0 To 9) As String. Нужны они для того, чтобы к элементам массива можно было обращаться по индексу.

[Tamplier]

по умолчанию 0 или 1

По умолчанию 0. Что бы изменить на 1 надо приписать вверху Option Base 1. Можно, конечно, поизвращаться и написать Option Base 0, но зачем засорять псевдоненужными строками свой код?

При Option Base 0 (или когда ничего нет)
Dim arr(5)
и
Dim arr(0 To 5)
одно и тоже

А при Option Base 1
Dim arr(5) [элементы: 1, 2, 3, 4, 5]
Dim arr(0 To 5) [элементы: 0, 1, 2, 3, 4, 5]

Создавать массив можно начиная с любого элемента
Dim arr(3 To 7), arr2(10 To 400)
все зависит от того, что тебе удобно при выполнении программы.

Тип массива задается так же, как задается переменной
Dim N As Long, arr(2) As Long

При объявлении массивов нельзя использовать переменные
(недопустимо)
Dim N As Long
N=5
Dim arr(N)

Для того чтобы создать массив с неизвестным заранее числом элементов создавай динамический массив и изменяй его размеры с помощью оператора ReDim
Dim arr() As Long, arr2() As Long, arr3() As Long
Dim n As Long
n=5
ReDim arr(n), arr2(2 To n), arr3(n To 50)

Вообще массывй созданы для упрощения обращения к переменным. Допустим, чтобы в цкле не писать такую чушь

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

For i=1 To 3
If i=1 then
Var1=i
ElseIf i=2 Then
Var2=i
Else
Var3=i
End If
Next


Лучше сделать так

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

For i=1 To 3
Var(i)=i
next

В данном случае Var(i) - это тот элемент массива, какой у нас аейчас i

[alibek]

Допустим, чтобы в цкле не писать такую чушь

Допустим, такую чушь писать действительно не надо. В данном случае вполне можно написать и Choose(i, Var1, Var2, Var3).

[Tamplier]

Choose

Необъятны просторы языка VB...
Согласен, я там немного некорректно написал.

[AndreyG_80]

Раз уж тема про массивы, тогда такой вопрос:

Такая ситуация:
считываю строки с текстового файла с разделителями
Например: слово1;слово2;слово3 и т.д.
в массиве эта строка а(1)=слово1, а(2)=слово2 и т.д.
кол-во таких элементов неизвесно. Можно конечно узнать кол-во разделителей в считаной строке и соответственно будет ясно сколько элементов в массиве.
Но, можно как-то узнать кол-во элементов массива имея массив с (n) элементами?

[Amed]

MsgBox LBound(arr)
MsgBox UBound(arr)

[Konst_One]

lbound(arr), ubound(arr)
нижняя и верхняя границы массива arr

[CORBA]

lbound(arr), ubound(arr)
нижняя и верхняя границы массива arr

а кол-во эл-тов = ubound(arr) - lbound(arr)

[GSerg]

CORBA
Ты опять написал фигню. Вот из-за таких моментов и появляются buffer overrun'ы.

[Konst_One]

он наверное перестарался , так как подумал, что я повторил топик Amed-а, но я не специально, видно у Amed-а секретарша быстрее на клавиатуре работает

а если серьезно, то конечно такое заявление в общем случае НЕ верно:

а кол-во эл-тов = ubound(arr) - lbound(arr)

[alibek]

Не в общем случае, оно всегда неверно. +1 должно быть.

[CORBA]

Не в общем случае, оно всегда неверно. +1 должно быть.

Даже при OPTION BASE 1 ?

[alibek]

Всегда.

[Amed]

Konst_One, оно же всегда неверно, как alibek говорит

Даже нулевой элемент массива - элемент. Вот если есть массив контролов, тогда да. Запросто может быть 'пробел' в середине.

[CORBA]

А ну да, извеняюсь, был не прав.

[alibek]

А сколько, по-твоему, дней прошло с 1 по 6 число? 5 или 6? Твой код скажет "5", что неверно.

Неудачный пример
Дни - не дискретная величина.

[Amed]

hCORe, а вот тут надо уточнение. Сколько дней прошло, или сколько полных дней прошло.

[alibek]

На металлической линейке есть разметка, в сантиметрах и миллиметрах. Миллиметровые риски на ней подписаны. Сколько миллиметров между риской 0 и риской 5?
То же самое и с днями. Даже условие "полных дней" недостаточно.

[Morion]

Спасибо за разъяснения!

[Roman-vb]

Вообще не стоит использовать OPTION BASE. Это из прошлого (а жалко ). Также не пиши

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

Dim a(1 to n)

- тоже устарело. Индексация теперь начинается с нуля:

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

Dim A(n) as type

Также массивы можно объявлять зарезервир. словами Private, Public, Global. Последнее, к стати, тоже устарело.
При использовании REDIM можно исп. кл. слово Preserve для сохранения значений, хранящихся в массиве.

[Amed]

Roman-vb, а

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

Dim a(b to n)

отнюдь не устарело. Индексация начинается с того места, с которого надо.

[Roman-vb]

Amed
Если в VB6, то да, но а если в VB7, VB8? - Такого там уже нет. Значит устарело. Пора отвыать не только писать на VB6 "Dim a(b to n)", но и вообще писать на VB6 Хотя это и не так просто.

[Amed]

Каждый для себя решает сам, на чем писать.

А вопрос задан в форуме VB6, поэтому и отвечать надо по VB6.