Вычислить произведение элементов массива, расположенных между минимальным и максимальным - Visual Basic .NET

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

В одном массиве, состоящим из 15 вещественных элементов (значения элементов массива задать случайным образом в интервалах от -10 до 10), вычислить произведение элементов массива, расположенных между минимальными и максимальными, сформировать из этих элементов новый массив.

Решение задачи: «Вычислить произведение элементов массива, расположенных между минимальным и максимальным»

textual
                            Листинг программы 
                        
 
                            
                        
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
    Dim mmin As Double = -10
    Dim mmax As Double = 10
    Dim n As Integer = 15
    Dim A() As Double = createArray(mmin, mmax, n)
    Dim imin As Integer = Array.IndexOf(A, A.Min)
    Dim imax As Integer = Array.IndexOf(A, A.Max)
    Dim multi As Double = 1
    Dim t1 As Integer = imin
    Dim t2 As Integer = imax
    If imin > imax Then swap(t1, t2)
    Dim newArray(t2 - t1 - 2) As Double
    For i = t1 + 1 To t2 - 1
        multi *= A(i)
        newArray(i - t1 - 1) = A(i)
    Next
End Sub
Private Function createArray(ByVal m1 As Double, ByVal m2 As Double, ByVal n As Integer) As Double()
    Dim mm(n - 1) As Double
    Dim randi As New Random
    For i = 0 To n - 1
        mm(i) = getDoubleRnd(m1, m2, randi)
    Next
    Return mm
End Function
Private Function getDoubleRnd(ByVal rStart As Double, ByVal rEnd As Double, ByRef rnd As Random) As Double
    Return rnd.NextDouble * (Math.Abs(rEnd) + Math.Abs(rStart)) + rStart
End Function