Задание с массивом. есть решение. - VB

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

Друзья, необходима небольшая помощь. Есть задание, я его решил как смог, учитель говорит, что не правильно,. Пожалуйста помогите найти ошибку или возможно предложите свой вариант решения. Ниже собственно само задание и решение мое. Заранее спасибо! Задание. Написать программу, которая сначала вводит n чисел в одномерный массив, а затем определяет каких чисел в массиве больше, положительных или отрицательных.

Private x(1 To 50) As Single
Private i As Integer
Private n, if As Single
Private Sub Command1_click()
n=Val(Text1.Text)
For i = 1 To n
x (i) = InputBox("x("&;&")=", x(i))
List1.Add Item x(i)
Next i
End Sub
Private Sub Command2.Click()
Dim pp, oo As Single
For i = 1 To n
if x (i) > 0 Then pp=pp + 1
End if
Next i
if x (i) < 0 Then oo=oo + 1
End If
If oo>pp Then Print "Отрицательных больше"
If pp=oo Then Print "Количество отрицат и полож равно"
If pp>oo Then Print "Положительных больше"
End Sub.

Решение задачи: «Задание с массивом. есть решение.»

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

                            Private x(1 To 50) As Single
Private i As Integer
Private n As Single
Private Sub Command1_click()
n = Val(Text1.Text)
For i = 1 To n
x(i) = InputBox("x(" & i & ")=", x(i))
List1.AddItem x(i)
Next i
End Sub
Private Sub Command2_Click()
 
Dim pp, oo As Single
For i = 1 To n
If x(i) > 0 Then pp = pp + 1
'End If
'Next i
If x(i) < 0 Then oo = oo + 1
Next i
'End If
If oo > pp Then Print "Otricatelnix bolse"
If pp = oo Then Print "otric i poloz ravno"
If pp > oo Then Print "polozitelnix bolse"
End Sub
                        