Массив Массивов

[1Steps]

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

        Dim arrColumn(5) As Object
........................................................
        arrColumn(0) = arrCol1
        arrColumn(1) = arrCol2
        arrColumn(2) = arrCol3
        arrColumn(3) = arrCol4
        arrColumn(4) = arrCol5
        arrColumn(5) = arrCol6
......................................................
        Dim UB as Integer = arrColumn.GetUpperBound(3)

В последней строчке ошибка.

Вопрос:
Как узнать верхнюю границу, допустим, четвертого массива?

Спасибо!

[Nord777]

Если я не ошибаюсь то массивом массивов называют Jagged Array. У тебя обычный одномерный массив.
В твоем случае примерно так:

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

Dim UB as Integer = CType(arrColumn(3),array).GetUpperBound(?)

Знак вопрося замени на размерность.
А зачем ты массив обьявляешь As Object?

[Nord777]

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

        Dim arrColumn(5) As Array
        Dim arrCol1() As Integer = New Integer() {1, 2, 3}

        arrColumn(3) = arrCol1

        Dim UB As Integer = arrColumn(3).GetUpperBound(0)
        MsgBox(UB)

[1Steps]

Насколько я понимаю, то

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

Dim arrColumn(5) As Object

и

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

Dim arrColumn()()()()()() As Object

одно и тоже.

As Object - потому, что один массив String, второй Date, третий Integer и т.д.
Это я вычитал в одной книге.
А что, неправильно?

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

Dim UB As Integer = arrColumn(3).GetUpperBound(0)

Спасибо, работает.

[1Steps]

Ещё вопрос:
Есть функция

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

Public Function InStore_Game(ByVal A As Integer, ByRef B As Integer, ByVal C As Integer) As Integer

Как сделать так что бы третий параметр "С" был по умолчанию.
Т.е., что бы его можно было принимать или не принимать.

[AndreyG_80]

Есть такая вещь, как Optional
Например:

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

Public Function InStore_Game(ByVal A As Integer, ByRef B As Integer, Optional ByVal C As Integer=ТвоеЗначениеПоУмолчанию) As Integer

[1Steps]

Спасибо!!!

[Nord777]

Есть два типа многомерных массивов: прямоугольные и jagged-массивы

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

'прямоугольный
Dim A as Integer(,) = New Integer(,){{1,2},{3,4}}

'jagged
Dim B as Integer()()=New Integer()(){}
B(0) = New Integer(){1,2}
B(1) = New Integer(){3,4,5}

В отличие от прямоугольных массивов строки в jagged-массивах могут быть разной длины.
Хотя эта разница стирается если ты обьявляешь массив as object

[1Steps]

jagged-массивы

Это то, что мне нужно.
Огромное спасибо.

[xmen]

Здравствуйте, Nord777.
Я посмотрел на Ваш пример Jagged arrays:

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

'jagged
Dim B as Integer()()=New Integer()(){}
B(0) = New Integer(){1,2}
B(1) = New Integer(){3,4,5}


Уменя пишет ошибку, что я делаю не правильно. VB. Net 2008.
Не могли ли Вы мне помочь с примером? Мне нужен jagged array без ограничения.

[Nord777]

Ошибка потому, что массив не проинициализирован. Перед строкой B(0) = New Integer(){1,2} нужно вставить ReDim B(1)

Лови еще одну разновидность(я не понял, что ты имеешь ввиду под словами "без ограничения")

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

    Dim B As Integer()()
    ReDim B(2)
    B(0) = New Integer() {1, 2}

    Dim Arr1(10) As Integer
    B(1) = Arr1

    ReDim Preserve B(1)(11)
    B(1)(11) = 255

[xmen]

Большое Спасибо! Это как раз то что нужно.

[SLIM]

Не стал создавать новый топик, раз уж здесь про массивы говорят.
В VB было возможно создать массив что называется на лету
f=Array(1,2,3,4,5)
Когда я попробовал создать массив в VB.NET у меня странное что-то получается. Array подчеркивается и кричит что типа это тип (Извеняюсь за тафтологию) и нельзя его так использовать.
В документации ничего путного не нашел - Все также как и в VB6. Почему не работает не знаю.
Подскажите как создать массив на лету?

[Nord777]

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

     Dim f() As Integer
    f = New Integer() {1, 2, 3, 4, 5}

[SLIM]

Спасибо. Я уж растерялся было...

[vick2312]

[syntax="vb"] Dim f() As Integer

f = New Integer() {1, 2, 3, 4, 5}[/syntax]

тут, к тому же, можно и объединить обе строки:

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

Dim f() As Integer = New Integer() {1, 2, 3, 4, 5}