Найти в матрице максимальные и минимальные элементы и поменять их местами - VB

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

Помогите исправить программу. Должна в MsgBox е выводить в виде массива и конец вродебы неправильный. Задача:Дана матрица размерности n на m. Найти в ней максимальные и минимальные элементы и обменять их местами.

                    Листинг программы
                
 
                        
                          
                    
 Dim A(10, 10), n, m, max, min, k, c, b, d, e As Integer
        n = InputBox("Введите количество строк")
        m = InputBox("Введите количество столбцов")
        For i = 1 To n
            For j = 1 To m
                A(i, j) = InputBox("Вв. элемент массива")
                MsgBox(A(i, j))
            Next
        Next
        max = A(1, 1)
        min = A(1, 1)
        For i = 1 To n
            For j = 1 To m
                If A(i, j) > max Then
                    max = A(i, j)
                    k = i
                    c = j
                End If
                If A(i, j) < min Then
                    min = A(i, j)
                    b = i
                    d = j
                End If
                MsgBox("max = " & A(k, c))
                MsgBox("min = " & A(b, d))
            Next
        Next
        e = A(k, c)
        A(k, c) = A(b, d)
        A(b, d) = e
    End Sub

Заранее спасибо!

Решение задачи: «Найти в матрице максимальные и минимальные элементы и поменять их местами»

textual
                            Листинг программы 
                        
 
                            
                        
Dim A() As Integer
Dim n As Integer
Dim m As Integer
Dim max As Integer
Dim min As Integer
Dim k As Integer
Dim c As Integer
Dim b As Integer
Dim d As Integer
Dim e As Integer
Dim i As Integer
Dim j As Integer
        n = InputBox("Введите количество строк")
        m = InputBox("Введите количество столбцов")
        ReDim A(1 To n, 1 To m)
        For i = 1 To n
            For j = 1 To m
                A(i, j) = InputBox("Вв. элемент массива")
                MsgBox (A(i, j))
            Next
        Next
        max = A(1, 1)
        k = 1
        c = 1
        min = A(1, 1)
        b = 1
        d = 1
        For i = 1 To n
            For j = 1 To m
                If A(i, j) > max Then
                    max = A(i, j)
                    k = i
                    c = j
                End If
                If A(i, j) < min Then
                    min = A(i, j)
                    b = i
                    d = j
                End If
            Next
        Next
        MsgBox ("max = " & A(k, c))
        MsgBox ("min = " & A(b, d))
        e = A(k, c)
        A(k, c) = A(b, d)
        A(b, d) = e

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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