массивы visual basic

[sens69]

При условии что матрица квадратная (n=m) заполнить главную диагональ матрицы значениями минимальных элементов ее строк
visual basic
помощь просто необходима =)

[Stilet]

Покажи как ты вводишь матрицу.

[sens69]

через флексгрид
Dim A(30, 30) As Single 'Описание двумерного массива
Dim I As Integer, j As Integer, N As Integer, m As Integer

'Процедура заполнения двумерного массива случайными числами
Private Sub Command1_Click()
Randomize
N = Val(Text1.Text) 'Количество строк
m = Val(Text2.Text) 'Количество столбцов

'Заполнение массива случайными значениями целых чисел
For I = 0 To N - 1
For j = 0 To m - 1
'Присвоение элементу массива случайного числа из отрезка [-10,10]
A(I, j) = Int(21 * Rnd - 10)
Next j
Next I


MSFlexGrid1.Rows = N + 1 'Общее количество строк в таблице
MSFlexGrid1.Cols = m + 1 'Общее количество столбцов

'Формирование заголовков столбцов
MSFlexGrid1.Row = 0 'Установка на нулевую строку
For j = 0 To m 'Цикл для вывода номеров столбцов
MSFlexGrid1.Col = j 'Установка на столбец с номером j
MSFlexGrid1.ColWidth(j) = 700 'Установка ширины столбцов
MSFlexGrid1.Text = j 'Вывод номеров столбцов
Next j

'Формирование заголовков строк

MSFlexGrid1.Col = 0 'Установка на нулевой столбец
MSFlexGrid1.ColWidth(0) = 300 'Установка ширины нулевого столбца
For I = 0 To N 'Цикл для вывода номеров строк
MSFlexGrid1.Row = I 'Установка на строку с номером i
MSFlexGrid1.Text = I 'Вывод номеров строк
Next I

'Вывод элементов массива в таблицу по строкам
For I = 0 To N - 1 'Цикл по строкам
MSFlexGrid1.Row = I + 1 'Установка на i+1-ую строку
For j = 0 To m - 1 'Цикл по столбцам
MSFlexGrid1.Col = j + 1 'Установка на j+1-ый столбец
MSFlexGrid1.Text = A(I, j) 'Вывод aij в ячейку таблицы i+1, j+1
Next j
Next I

End Sub