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

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

Есть три массива:максимумы значений,минимумы и модуль их разницы Я хочу те значения где разница минимальная усреднить,то есть сложить и разделить на два.Вот код
For i = 1 To 10
dmax(i) = (i * lmax) / (2 * n2max)
dmin(i) = (lmin / (4 * n2min)) + ((lmin * i) / (2 * n2min))
d(i) = Abs(dmax - dmin)
Например,минимальная d(i) это третий элемент,значит мне нужно сложить dmax(3) и dmin(3) Ищу как это сделать,но пока только ошибки выдаёт.Помогите,кто может.

Код к задаче: «Поиск минимального в массиве - VB»

textual
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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

10   голосов, оценка 3.900 из 5


СДЕЛАЙТЕ РЕПОСТ