Private Sub Command1_Click(). n = Val(Text1.Text) 'Количество строк

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

End Sub

'Процедура вывода двумерного массива в таблицу

Private Sub Command2_Click()

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 'Цикл по столбцам

FlexGrid1.Col=j+1 'Установка на j +1-ый столбец

MSFlexGrid1.Text=a(i,j) 'Вывод a _ij в ячейку таблицы i +1, j +1

Next j

Next i