Курсовая работа: Розвязання інженерних задач мовою програмування VBA

If (A(i, j) > max) Then

max = A(i, j)

o = j

End If

Next j

k = A(i, p)

k1 = A(i, o)

A(i, o) = k1

A(i, p) = k

A(i, 1) = min

A(i, m) = max

Next i

For i = 1 To n

For j = 1 To m

B(i, j) = A(i, j)

MsgBox ("Елемент масиву B(" + Str(i) + "," + Str(j) + ")=" + Str(B(i, j)))

Next j

Next i

End Sub

Контрольний приклад. Виконуємо обчислення для даних тестового прикладу. Результати роботи програми на екрані монітора мають вигляд

Вводимо матрицю А

Після обробки матриці А програмою отримуємо нову матрицю В з потрібними нам перетвореннями

Задайте кiлькiсть рядкiв матрицi n=4;

Задайте кiлькiсть стовбцiв матрицi m=6;

Задайте елемент масива А[1,1]=1;

Задайте елемент масива А[1,2]=5;

Задайте елемент масива А[1,3]=45;