Переставить элементы массива n в обратном порядке - VB

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

Ввести одномерный массив n= {3, 5, 7, 9, -11, 13, 15} Переставить элементы массива n в обратном порядке и найти в нем произведение элементов, расположенных после минимального элемента.

Решение задачи: «Переставить элементы массива n в обратном порядке»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim a(1 To 7) As Double
Dim b(1 To 7) As Double
Dim i As Integer
Dim j As Double
Dim min, s As Double
Dim n As Double
Private Sub Command1_Click()
 
a(1) = 3: a(2) = 5: a(3) = 7: a(4) = 9: a(5) = -11: a(6) = 13: a(7) = 15
Print "Г€cГµГ®Г¤Г*Г»Г© Г¬Г*Г±Г±ГЁГў:"
For i = 1 To 7
Print a(i);
Next i
n = 7
Print vbLf
j = 0
For i = 1 To n
b(i) = a(n - j)
j = j + 1
Print b(i);
Next i
s = 1
For i = 2 To 7
s = s * b(i)
 
Next i
Print vbLf
Print "ГЏГ°Г®ГЁГ§ГўГҐГ¤ГҐГ*ГЁГҐ ГЎГҐГ§ Г¬ГЁГ*ГЁГ¬Г*Г«ГјГ*Г®ГЈГ® Г±Г®ГЈГ«Г*Г±Г*Г® ГЇГ®Г°ГїГ¤ГЄГ®ГўГ®Г¬Гі Г*Г®Г¬ГҐГ°Гі =   "; s
 
 
End Sub
                        