Задание программир. на 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

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

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

13   голосов , оценка 4.231 из 5
Похожие ответы