Массив: Выбрать в массиве все отрицательные элементы, сформировать новый массив и выдать его элементы. - VB

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

1. Написать программу, в которой вначале по запросам вводятся: а) размерность (с проверкой правильности) и б) элементы одномерного целочисленного массива. Выбрать в массиве все отрицательные элементы, сформировать новый массив и выдать его элементы. Если массив не содержит отрицательных элементов, вы-дать сообщение: " Массив не содержит отрицательных элементов". PS если не трудно прикрепите исходники проекта файлом, спасибку тыкну))

Решение задачи: «Массив: Выбрать в массиве все отрицательные элементы, сформировать новый массив и выдать его элементы.»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Base 1 'Г€Г*Г¤ГҐГЄГ±Г*Г¶ГЁГї Г± 1
Private Sub Form_Load()
Dim a() As Integer
Dim a2() As Integer
Dim i, i2, N As Integer
 
N = -1
i2 = 0
'ГЏГ°Г®ГўГҐГ°ГЄГ* Г°Г*Г§Г°ГїГ¤Г*Г®Г±ГІГЁ
While N <= 0
N = InputBox("Г‚ГўГҐГ¤ГЁ Г°Г*Г§Г¬ГҐГ°Г*Г®Г±ГІГј Г¬Г*Г±Г±ГЁГўГ* (ГЇГ®Г«Г®Г¦ГЁГІГҐГ«ГјГ*Г®ГҐ Г¶ГҐГ«Г®ГҐ Г·ГЁГ±Г«Г®)")
Wend
 
'Г‚ГўГ®Г¤ ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў
ReDim a(N) As Integer
For i = 1 To N
a(i) = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЅГ«ГҐГ¬ГҐГ*ГІ Г¬Г*Г±Г±ГЁГўГ* В№" + Str(i))
Next
 
'Г‚Г»ГЎГ®Г°ГЄГ* Г®ГІГ°ГЁГ¶Г*ГІГҐГ«ГјГ*Г»Гµ Гў Г*Г®ГўГ»Г© Г¬Г*Г±Г±ГЁГў
ReDim a2(N) As Integer
For i = 1 To N
If a(i) < 0 Then
i2 = i2 + 1
a2(i2) = a(i)
End If
Next
 
'Г‚Г»ГўГ®Г¤
Print "Г‚Г*Гё Г¬Г*Г±Г±ГЁГў: " & Vbclf&
For i = 1 To N
Print a(i)
Next
 
If i2 = 0 Then
Print "ГЊГ*Г±Г±ГЁГў Г*ГҐ Г±Г®Г¤ГҐГ°Г¦ГЁГІ Г®ГІГ°ГЁГ¶Г*ГІГҐГ«ГјГ*Г»Гµ ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў" 'ГЊГ®Г¦Г*Г® Г·ГҐГ°ГҐГ§ MsgBox
Else
Print "ГЌГ®ГўГ»Г© Г¬Г*Г±Г±ГЁГў: " & Vbclf&
For i = 1 To i2
Print a2(i)
Next
End If
 
End Sub