Ввести одномерный массив x - VB

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

очень прошу помощи: Ввести одномерный массив x= {-1.5, 0.1, 12, 0, -2.2, 0.5, -1, 0.3}. Заменить в нем все отрицательные элементы значением минимального элемента, а все положительные – максимальным значением.

Решение задачи: «Ввести одномерный массив x»

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

                            Private Sub Form_Load()
Me.AutoRedraw = True
Dim i As Integer: Dim min, max As Double
 
'1 Г±ГЇГ®Г±Г®ГЎ
Dim a() As Variant
a = Array(-1.5, 0.1, 12, 0, -2.2, 0.5, -1, 0.3)
'2 Г±ГЇГ®Г±Г®ГЎ
'For i = 0 To 7
'x = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ" + Str(i) + "ГЅГ«ГҐГ¬ГҐГ*ГІ Г¬Г*Г±Г±ГЁГўГ*")
'Next
Print "ГЌГ*Гё Г¬Г*Г±Г±ГЁГў"
For i = 0 To 7
Print a(i)
Next
 
'ГЏГ®ГЁГ±ГЄ Г¬Г*ГЄГ±ГЁГ¬Г*Г«ГјГ*Г®ГЈГ®/Г¬ГЁГ*ГЁГ¬Г*Г«ГјГ*Г®ГЈГ® Г§Г*Г*Г·ГҐГ*ГЁГї
max = a(0)
min = a(0)
 
For i = 0 To 6
If a(i + 1) > max Then
max = a(i + 1)
End If
If min > a(i + 1) Then
min = a(i + 1)
End If
Next
 
Print "ГЊГ*ГЄГ±ГЁГ¬ГіГ¬: ", max
Print "ГЊГЁГ*ГЁГ¬ГіГ¬: ", min
'Г‡Г*Г¬ГҐГ*Г*
For i = 0 To 7
If a(i) <> 0 Then
If a(i) < 0 Then
a(i) = min
Else
a(i) = max
End If
End If
Next
'Г‚Г»ГўГ®Г¤
Print "ГЌГ®ГўГ»Г© Г¬Г*Г±Г±ГЁГў"
For i = 0 To 7
Print a(i)
Next
 
End Sub
                        