Лекция: Dim k As Integer, p As Integer
Dim a(1 To 3, 1 To 3) As Integer
‘ нумерация с единицы
N = 3: m = 3
For i = 1 To N
For j = 1 To m
a(i, j) = Cells(i, j) ‘считывание A i,j
с рабочего листа Excel
Next i
For i = 1 To N
max = -32768
For j = 1 To m
If a(i, j) > max Then max = a(i, j): k = i: p = j
|
C = a(k, p)
a(k, p) = a(i, i)
a(i, i) = C ‘
Next i
For i = 1 To N
For j = 1 To m
Cells(i + 5, j) = a(i, j) ‘вывод массива
на лист Excel
Next j
Next i
End Sub
П р и м е р 2. Найти строку
с минимальным значением суммы элементов двумерного массива:
.
Все суммы строк элементов записать в одномерный массив.
Графическая схема алгоритма поиска строки с минимальным значением суммы элементов представлена на рис. 13.2, на основании которой разработан программный код PR2 формирования одномерного массива из минимальныхзначенийсумм элементов строк матрицы:
Option Explicit
Sub PR2 ( )
Dim M AsInteger, k, AsInteger
Dim i AsInteger, j AsInteger
Dim min Аs Integer, N AsInteger
Dim A(1 To 10, 1 To 10) AsInteger
Dim S(1 to 10) As Integer
N =3: M = 3: min = 32767
For i = 1 To N
For j = 1 To M
A(i, j) = Cells(i, j)‘ считывание A(i, j)
‘с рабочего листа Excel
Next j
Next i
For i = 1 To N
S(i) = 0
For j = 1 To M
S(i) = S(i) + A(i, j )
Next j
Next i
For i = 1 To N
Cells(i+5, 5) = S(i) ‘вывод элементов массива
If S(i) <= min Then min = S(i): k = i
Next i
Cells(5,11) = k ‘вывод номера строки c минимальным значением
суммы элементов
Cells(6,11) = min ‘вывод минимальной суммы на рабочий лист Excel
End Sub