В линейном массиве найти сумму элементов, находящихся между максимальным и минимальным элементами

Private Sub Command1_Click()
 
Dim a(n) As Single
n = Val(Text2.Text)
 
 
Randomize
For i = 1 To n
a(i) = Rnd
s = s + Str(a(i))
 
Picture1.Print (s)
 
s = " "
Next
 
 
End Sub
 
 
Private Sub Command2_Click()
s = 0
Max = 0
nomin = 0
nomax = 0
 
For i = 1 To n
If a(i) > Max Then Max = a(i)
nomax = i
End If
Next
Min = Max
For i = 1 To n
If a(i) < Min Then Min = a(i)
nomin = i
End If
Next
For i = nomin To nomax
s = s + a(i)
Picture1.Print (s)
End
Next
 
End Sub

Option Explicit
Dim a() As Single, n As Integer, i As Integer
 
Private Sub Command1_Click()
    n = 10 'Val(Text2.Text)
    Picture1.Cls
    ReDim a(1 To n)
    Randomize
    For i = 1 To n
        a(i) = Int(Rnd * 10 + 1)
        Picture1.Print a(i) & vbTab;
    Next i
    Picture1.Print
End Sub
 
 
Private Sub Command2_Click()
Dim max As Single, min As Single
Dim nomin As Integer, nomax As Integer, sum As Double
 
    For i = 1 To n
        If a(i) > max Then max = a(i): nomax = i
    Next i
    Picture1.Print "Максимальный элемент массива А(" & nomax & ") = " & max
    
    min = max
    
    For i = 1 To n
         If a(i) < min Then min = a(i): nomin = i
    Next i
    Picture1.Print "Минимальный элемент массива А(" & nomin & ") = " & min
    
    Picture1.Print "Элементы, расположенные между минимальным и максимальным:"
    If nomin < nomax Then
        For i = nomin To nomax
                Picture1.Print a(i) & vbTab;
                sum = sum + a(i)
        Next i
    Else
        For i = nomax To nomin
                Picture1.Print a(i) & vbTab;
                sum = sum + a(i)
        Next i
    End If
    Picture1.Print
    Picture1.Print "Сумма элементов, расположенных между минимальным и максимальным:  " & sum
End Sub