Задать двух-размерный массив с данными в VB6

[Ariadna-on-Line]

Господа, Help.
Нужно задать двумерный массив 8x8 целых чисел
1, 0, 0, 0, 0, 0, 0, 0
0, 1, 0, 0, 0, 0, 0, 0
...
0, 0, 0, 0, 0, 0, 0, 1

Предположим

Dim Colon(8,8) As Integer

А как выглядит сама строчка задания значений ?????

Colon() = (1, 0, 0, 0, 0, 0, 0, 0), (0, 1, 0, 0, 0, 0, 0, 0), ..., ( 0, 0, 0, 0, 0, 0, 0, 1) - Выдаёт синтаксическую ошибку !!!!!!!!!!!!!!!!!!!!
Уже мозги свихнул. Как правильно ???
Хелп!!!

[vem566]

https://docs.microsoft.com/ru-ru/dotnet ... es/arrays/
Там фигурные скобки. И двойные крайние.

[Ariadna-on-Line]

Нет. Эту ссыль я видел. Она похоже к более новым Бейсикам, типа .NET чтоли. В них синтаксис на СИ смахивает. А тут именно синтаксическая заковыка.

[vem566]

Или пробовать разные скобки, он же конкретно ругается на символ, или попробовать нажать кнопку "справка".

[Ariadna-on-Line]

Беда в том что справка о чем угодно, но не об этом. Короче - нашел переводной (на русский) учебник по VB6. Там написано что можно вручную.
Dim Colon (8,8) As Integer
...
Colon(0,0) = а : Colon(0,1) = в : ... : Colon(8,8) = n - Пришлось сделать именно так за неимением лучшего.

Но не утверждается что ТОЛЬКО вручную...

[pro_grammer]

[uquote="Ariadna-on-Line",url="/forum/viewtopic.php?p=3812806#p3812806"]Беда в том что справка о чем угодно, но не об этом. Короче - нашел переводной (на русский) учебник по VB6. Там написано что можно вручную.
Dim Colon (8,8) As Integer
...
Colon(0,0) = а : Colon(0,1) = в : ... : Colon(8,8) = n - Пришлось сделать именно так за неимением лучшего.

Но не утверждается что ТОЛЬКО вручную...[/uquote]



Можно же программно. Это заполнение главной диагонали матрицы, азы так сказать:

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

'Заполнить
Dim A(1 To 8, 1 To 8)
For i = 1 To 8
A(i, i) = 1
Next

Для проверки можно написать такой код:

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

' Проверка
For i = 1 To 8
    For J = 1 To 8
      St$ = St$ & Str(A(i, J))
    Next
Print St$
St$ = ""
Next
End Sub

P.S.
Обратите внимание, что при таком объявлении, как у вас

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

Dim Colon (8,8) As Integer

будет 9х9 матрица!
Значения с 0 по 8, это 9 колонок!

[Ariadna-on-Line]

Это понятно. Но что это меняет ? Чтобы "автоматом" программа заполнила значения "ячеек" матрицы - эти значения надо программе сначала задать. А как задать совершенно нерегулярные значения ? - Очевидно - вручную задав значения такой же матрицы, или автоматом объединяя кучу одномерных матриц, которые тоже надо задать. Потому и вопрос чтоб обойти этот лишний процесс.
Про размерность матрицы - согласен - описАлся однако. ))))