Дан двумерный массив из 36 элементов. Найти сумму квадратов 3 строки - VB

Формулировка задачи:

Здравствуйте, нужна помощь в составлении массива и подсчёта чисел определённых строк. Стоит задание: Дан двумерный массив ET из 36 элементов. Найти сумму квадратов 3 строки. Как проходит создание массива с абсолютно случайными числами? Мы задаём название массива для начала, так?

Dim ET(6, 6) As Integer

А вот как составить массив, заполненный случайными числами, чтобы не писать мне каждый раз, что-то вроде :

ET(1, 1) = 1: ET(2, 1) = 2: ET(3, 1) = 30: ET(4, 1) = 6: ET(5, 1) = 5: ET(6, 1) = 4 
ET(1, 2) = 2: ET(2, 2) = 4: ET(3, 2) = 25: ET(4, 2) = 9: ET(5, 2) = 6: ET(6, 2) = 6 
ET(1, 3) = 3: ET(2, 3) = 6: ET(3, 3) = 20: ET(4, 3) = 12: ET(5, 3) = 7: ET(6, 3) = 9 
ET(1, 4) = 4: ET(2, 4) = 8: ET(3, 4) = 15: ET(4, 4) = 15: ET(5, 4) = 8: ET(6, 4) = 0 
ET(1, 5) = 5: ET(2, 5) = 10: ET(3, 5) = 10: ET(4, 5) = 18: ET(5, 5) = 9: ET(6, 5) = 10 
ET(1, 6) = 6: ET(2, 6) = 12: ET(3, 6) = 5: ET(4, 6) = 21: ET(5, 6) = 10: ET(6, 6) = 1

И последний вопрос, как проводить какие-то арифметические вычисления только с определённой частью массива, чтобы потом выводить полученное значение, к примеру через

MsgBox

? Объясните пожалуйста..

Решение задачи: «Дан двумерный массив из 36 элементов. Найти сумму квадратов 3 строки»

textual
                            Листинг программы 
                        

                            'ГЊГ*Г±Г±ГЁГў
Dim ET(6, 6) As Integer
For i = 1 To 6
For j = 1 To 6
ET(i, j) = Int(Rnd * 100) + 1
Next j
Next i
'ГЉГ®Г*ГҐГ¶ Г¬Г*Г±Г±ГЁГўГ*
s = 0
For j = 1 To 6
s = s + ET(3, j) ^ 2
Next j
MsgBox ("Total = " & s)
                        