Матрицы и вывод текста.

[Nonadoshi]

Доброго времени суток. Возникло два вопроса по поводу VBA:

1.Допустим дана матрица 3х3

395
217
344

Вопрос: как задать матрицу и заполнить её, согласно примеру выше, сразу в коде, а не вводить по очереди через InputBox.

2. В ходе программы были найдены 4 переменные (каждая содержит однозначное число), и в конце программы нужно вывести их в окошке с текстом "Вершиной квадрата может быть точка:" и через запятую должны быть перечислены переменные. Я пытался вывести с помощью:

MsgBox ("Вершиной квадрата может быть точка:" & " " & переменная1 & " " & " ")

но получается вывести только одну переменную

Подскажите как правильно написать этот код?

[Myhaylo]

Существует Функция Array, возвращающая значение типа Variant, содержащее массив:

В следующем примере первая инструкция создает переменную A типа Variant. Вторая инструкция присваивает массив переменной A. Последняя инструкция показывает, как присвоить другой переменной значение третьего элемента массива (для Array индексация - всегда с нуля).

Dim A As Variant
A = Array(10,20,30)
B = A(2)

Как с помощью этой функции задать многомерный массив я не знаю. Но могу предложить так:

Const n = 2
Dim b As Variant
Dim a(n, n) As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
  b = Array(1, 2, 3, 4)
  k = 0
  For i = 1 To n
    For j = 1 To n
      a(i, j) = b(k)
      k = k + 1
    Next j
  Next i
  MsgBox a(1, 1) & " " & a(1, 2) & vbCr & a(2, 1) & " " & a(2, 2)

[Nonadoshi]

Myhaylo, да, код правильно работает, спасибо большое за помощь.

P.S. Со вторым вопросом я уже разобрался.