Пересчитать первый столбец матрицы F размерности m - VB

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

Пересчитать первый столбец матрицы F размерности m так, чтобы значение каждого элемента было равно сумме элементов строки, в которой он находится. Проанализировать выполнение программы на примере: m=3, матрицу выбрать самостоятельно. помогите написать кооод(((

Решение задачи: «Пересчитать первый столбец матрицы F размерности m»

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

                            Private Sub Command1_Click()
Dim i As Integer, j As Integer, m As Integer, F() As Integer, summ As Integer
Randomize 'Иницилизация генератора случайных чисел
Cls       'Очищаем форму
m = 3    ' InputBox("Enter m)
ReDim F(m, m) ' Размеры массива F -  m-строк, m-столбцов
Print "Исходный массив"
For i = 1 To m
 summ = 0
 For j = 1 To m
      F(i, j) = Int(Rnd * 11) 'Заполняем массив случайными числами
      summ = summ + F(i, j)
      Print F(i, j); vbTab;
 Next j
 F(i, 1) = summ
 Print
Next i
'Процедура вывода на печать
Print "Результат"
  For i = 1 To m
   For j = 1 To m
       Print F(i, j); vbTab;
   Next j
   Print
Next i
End Sub
                        