Visual Basic FAQ

В двумерном массиве Z (N – строк, M – столбцов) найти максимальный элемент в каждой строке и минимальный среди этих элементов.

Option Base 1 

Private Sub Command1_Click()
Dim Z() As Long
Dim M As Integer
Dim N As Integer
N = Val(InputBox("Введите количество строк от 1 до 10 массива", "Задача №2", "N"))
Select Case N
Case Is < 1
Exit Sub
Case Is <= 10
M = Val(InputBox("Введите количество столбцов от 1 до 10 массива", "Задача №2", "M"))
    Select Case M
    Case Is < 1
    Exit Sub
    Case Is <= 10
    Dim min As Long
    Dim max As Long
    Dim maxx() As Long
    ReDim Z(N, M) As Long
        For x = 1 To N
            For y = 1 To M
                Z(x, y) = Val(InputBox("Введите елемент в строке " & x & " в столбце " & y, "Заполнение массива"))
            Next y
        Next x
        For x = 1 To N
        max = Z(x, 1)
            For y = 1 To M
                If Z(x, y) > max Then max = Z(x, y)
            Next y
        ReDim Preserve maxx(x)
        maxx(x) = max
        MsgBox "В строке " & x & " максимальное значение" & "=" & max
        Next x
    min = maxx(LBound(maxx))
    For x = LBound(maxx) To UBound(maxx)
        If maxx(x) < min Then min = maxx(x)
    Next x
    MsgBox "Минимальное из максимальных " & min
    Case Is > 10
    MsgBox "Говорю же, от 1 до 10!"
    Call Command2_Click
    End Select
Case Is > 10
MsgBox "Говорю же, от 1 до 10!"
Call Command2_Click
End Select
End Sub

Запись опубликована on 18.11.2009 at 0:33 и размещена в рубрике: Задачи. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.