Private Sub Кнопка8_Click()

Dim a(3, 3), at(3, 3), res(3, 3) As Single, i, j, k As Byte, s As String, sum As Single

‘ Заполнение двумерного массива случайными числами

For i = 1 To 3

For j = 1 To 3

a(i, j) = Int(10 * Rnd(5))

‘ Формирование строки для вывода массива

s = s & Str(a(i, j)) & " "

Next j

s = s & Chr(13) & Chr(10)

Next i

Поле0.Value = s

s = " "

‘ Получение транспонированной матрицы

For i = 1 To 3

For j = 1 To 3

at(i, j) = a(j, i)

s = s & Str(at(i, j)) & " "

Next j

s = s & Chr(13) & Chr(10)

Next i

Поле4.Value = s

s = " "

‘ Умножение матрицы на матрицу

For i = 1 To 3

For j = 1 To 3

sum = 0

For k = 1 To 3

sum = sum + a(i, k) * at(k, j)

Next k

res(i, j) = sum

s = s & Str(res(i, j)) & " "

Next j

s = s & Chr(13) & Chr(10)

Next i

Поле6.Value = s