Дана матрица F (m*m) заменить нулями главную диагональ матрицы В С + + basic visual

В Visual Basic на форме нужно создать текстовое поле Label1
со свойством WordWrap = True, то есть многострочное поле,
размер нужно задать, чтобы поместилась вся матрица.
Sub Matrix
Dim F () As Integer ' Объявляем динамический массив
Dim m As Integer, i As Integer, k As Integer, t As String ' И переменные
m = InputBox ("Vvedite razmer matrix") ' Задаем размер массива
ReDim F (m, m) ' Определяем размер массива
For i = 1 To m ' Ввод данных
For k = 1 To m
t = "Vvedite element Matrix" & Str (i) & "," & Str (k)
F (i, k) = InputBox (t)
Next k
Next i
For i = 1 To m
F (i, i) = 0 ' Обнуляем элементы главной диагонали.
Next i
For i = 1 To m
For k = 1 To m ' Вывод строки данных через табуляцию
Label1. Caption = Label1. Caption & F (i, k) & Chr (9)
Next k
Label1. Caption = Label1. Caption & vbCrLf ' Переход на следующую строку
Next i
End Sub