Найдите индексы минимального значения массива - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д