Массивы: Найдите индексы минимального значения - VB

Узнай цену своей работы

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

Всем привет, нужна помощь с решением задачи: В двумерном массиве, заполнена случайными числами из отрезка [-50;50], размером 5x4. Найдите индексы минимального значения.
ап.
АП.

Решение задачи: «Массивы: Найдите индексы минимального значения»

textual
Листинг программы
Private Sub Form_Load()
    Dim i As Long, j As Long, _
        arr() As Long, iJ As Long, iI As Long, _
        min As Long
    Me.AutoRedraw = True
    ReDim arr(4, 3)
    min = 50
    For i = 0 To UBound(arr, 1): For j = 0 To UBound(arr, 2)
        arr(i, j) = Int(Rnd * 101) - 50
        If arr(i, j) < min Then
            min = arr(i, j)
            iI = i: iJ = j
        End If
        Print arr(i, j);
    Next: Print: Next
    MsgBox "Indexes = " & iI & ";" & iJ
End Sub

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

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