Vb6. наступило затмение мозгов. хелп !

Тема в разделе "Флудилка", создана пользователем Ariadna-on-Line, 15 мар 2020.

  1. Ariadna-on-Line

    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) - Выдаёт синтаксическую ошибку !
    Уже мозги свихнул. Как правильно ?
    Хелп!
    ПС. Менять скобки на фигурные не предлагать. Проверено. Скажет - недопустимый символ.
     
    Последнее редактирование модератором: 15 мар 2020
  2. ZAZ-965

    ZAZ-965 Гуру

    А так?
    Код (Text):
    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}}
     
  3. Ariadna-on-Line

    Ariadna-on-Line Гуру

    На фигуристые скобки ругается сразу. Похоже легкого пути нет. Переведенный на русиш учебник VB6 заставляет только по отдельности каждую константу задавать. Слава богу их тут всего 64. Проехали.
     
  4. KindMan

    KindMan Гик

    Так вот же из примеров с мелкософта
    Код (C++):
    Dim numbers = {{1, 2}, {3, 4}, {5, 6}}
    Dim matrix = New Integer(3, 2) {{1, 2, 3}, {2, 3, 4}, {3, 4, 5}, {4, 5, 6}}
     
     
  5. Ariadna-on-Line

    Ariadna-on-Line Гуру

    Dim Colon = New ... в выпадающем списке объектов нет Integer. Byte, Long и тд.
     

    Вложения:

  6. KindMan

    KindMan Гик

    Наверное это актуально только для VB.NET, а ваш 6.0 уже мамонт
     
  7. Ariadna-on-Line

    Ariadna-on-Line Гуру

    Это точно.Однако посмотрел вес установщика первого бейсика из NET-ов - VB 2005 - 465MB. Посмотрел - сколько папка VB6 со всеми проектами на моем компе - 190MB. И подумалось - а нах-нах. Всё равно летать не будет.
    ПС. Cлово NET как-то невольно навевает подозрения об " индивидуумах с нездоровым любопытством"...
     
    Последнее редактирование: 16 мар 2020