Задание программир. на Visual Basic - VB

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

Помогите,пожалуйста,нужно найти и напечатать максимальные по значению елементы в каждом ряде заданной матрицы.Заранее благодарна.

Решение задачи: «Задание программир. на Visual Basic»

textual
                            Листинг программы 
                        

                            Sub Макрос1()
    Dim i As Integer, j As Integer
    With Selection
        For i = 1 To .Rows.Count
            max = .Cells(i, 1)
            For j = 2 To .Columns.Count
                If max < .Cells(i, j) Then max = .Cells(i, j)
            Next j
            Cells(i, .Columns.Count + 2) = max
        Next i
    End With
End Sub
                        

Оцени полезность:

13 голосов , оценка 4.231 из 5

Похожие ответы