Поиск минимального в массиве - VB - Ответ 10405869

Option Explicit
Dim d0_m(10) As Single, d_M(10) As Single
 
Private Sub Form_Click()
Dim d_min As Single, d_max As Single, min As Integer, m As Integer, i As Integer
min = Abs(d0_m(1) - d_M(1))
 For i = 1 To 10
    If Abs(d0_m(i) - d_M(i)) < min Then
        min = d0_m(i) - d_M(i)
        m = i
        d_min = d_M(i)
        d_max = d0_m(i)
    End If
  Next
  Print m, d_min, d_max
End Sub
 
Private Sub Form_Load()
d0_m(1) = 167.931: d_M(1) = 123.2019
d0_m(2) = 279.8851: d_M(2) = 246.4037
d0_m(3) = 391.8391: d_M(3) = 369.6056
d0_m(4) = 503.7931: d_M(4) = 492.8074
d0_m(5) = 615.7471: d_M(5) = 616.0093
d0_m(6) = 727.7011: d_M(6) = 739.2111
d0_m(7) = 839.6552: d_M(7) = 862.413
d0_m(8) = 951.6092: d_M(8) = 985.6148
d0_m(9) = 1063.563: d_M(9) = 1108.817
d0_m(10) = 1175.517: d_M(10) = 1232.019
End Sub