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

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

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

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

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

textual
Листинг программы
Private Sub cmdStart_Click()
  Dim dData(1 To 5, 1 To 4) As Double
  Dim iI As Integer
  Dim iJ As Integer
  Dim dMinData As Double
  Dim iMinI As Integer
  Dim iMinJ As Integer
  Dim sTemp As String
  '
  Randomize Timer
  For iI = 1 To 5
    For iJ = 1 To 4
      dData(iI, iJ) = dRndMinMax(-50, 50)
    Next iJ
  Next iI
  ' Массив циферками заполнили (случайными - в диапазоне [-50;50])
  '
  dMinData = 100 ' если верхняя граница 50 - 100 уж точно больше всего, что может быть в массиве
  For iI = 1 To 5
    For iJ = 1 To 4
      If dData(iI, iJ) < dMinData Then
        iMinI = iI ' Запоминаем индекс I
        iMinJ = iJ ' Запоминаем индекс J
        dMinData = dData(iI, iJ) ' а теперь это и будет минимальным значением
      End If
    Next iJ
  Next iI
  sTemp = "Минимальное значение в массиве = " & Trim$(Str$(dMinData)) & Chr$(13) & Chr$(10)
  sTemp = sTemp + "индекс I =" & Trim$(Str$(iMinI)) & Chr$(13) & Chr$(10)
  sTemp = sTemp + "индекс J =" & Trim$(Str$(iMinJ)) & Chr$(13) & Chr$(10)
  ' Выводим в текстовое поле. Не забудьте настроить MultiLine = True
  txtResult.Text = sTemp
End Sub

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

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