Дана матрица 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