Как увеличить элементы указанного столбца матрицы на значение минимального элемента последней строки - VB

Формулировка задачи:

Разработать ИТ, позволяющую увеличить элементы матрицы произвольной размерности, разположенные в столбце, номер которого задается вводом, на значение минимального элемента последней строки матрицыю размерность массива произвольная.Добавлено через 10 часов 39 минут Visual basic 6.0

Код к задаче: «Как увеличить элементы указанного столбца матрицы на значение минимального элемента последней строки - VB»

textual
Sub D_Ban(arr, nSt)
    'Прибавляет к столбцу с номером nSt двумерного массива arr
    'значение минимального элемента последней строки массива.
    'Массив любого числового ИЛИ СТРОКОВОГО типа,
    'первый индекс считается номером строки, второй - номером столбца.
Dim i&, lr&, min
lr = UBound(arr)   'номер последней строки
i = LBound(arr, 2) 'номер первого столбца
    'поиск минимума в строке lr
min = arr(lr, i)
For i = i + 1 To UBound(arr, 2)
    If min > arr(lr, i) Then min = arr(lr, i)
Next
    'прибавление числа к столбцу
For i = LBound(arr) To lr
    arr(i, nSt) = arr(i, nSt) + min
Next
End Sub

9   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ