Содать приложение для вычисления нормы матрицы - VB

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

Упорно не понимаю, как составить приложение в Visul Basic 6.0 для вычисления нормы матрицы (у - число, равное корню квадратному из суммы квадратов модулей всех элементов матрицы А) 1) Как написать код для вычисления суммы квадратов массива? 2) Каким образом написать про модули? Буду благодарна за помощь.

Решение задачи: «Содать приложение для вычисления нормы матрицы»

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

                            Private SUB Command2_Click()
DIM i AS INTEGER, j AS INTEGER, vArr() AS SINGLE
n = CINT(InputBox("Введите n"))
m = CINT(InputBox("Введите m"))
'Вот переназначила массив, но он пока пуст
REDIM vArr(n, m) AS SINGLE
'Вот заполнила его с выводом в текстбокс
FOR i = 1 TO n
FOR j = 1 TO m
vArr(i, j) = InputBox("vArr(" & i & " , " & j & " ) ")
Text2.Text = Text2.Text & vArr(i, j) & ""
NEXT j
Text2.Text = Text2.Text + vbCrLf
'Вот расчитала свои все нормы
NEXT iFOR i = 1 TO n
    FOR j = 1 TO m
        vNorm = vNorm + (ABS(vArr(i, j))) ^ 2
    NEXT j
NEXT i
vNorm = SQR(vNorm)
'Вот вывела рез-тат в 3 текстбокс
Text3Text = vNorm
END SUB
                        