Каких чисел в массиве больше? Отрицательных или положительных? - VB

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

каких чисел в массиве больше?отрицательных или положительных?

Решение задачи: «Каких чисел в массиве больше? Отрицательных или положительных?»

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

                            Private Sub Command1_Click()
Dim a() As Double
Dim k As Integer
Dim d As Integer
Dim n As Integer
Dim i As Double
Dim j As Double
Cls
n = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў Г¬Г*Г±Г±ГЁГўГ*", "ГЉГ®Г«-ГўГ® ГЅГ«-Г®Гў Г¬Г*Г±Г±ГЁГўГ*", 10)
k = 0 'Г±Г·ВёГІГ·ГЁГЄ Г¤Г«Гї ГЇГ®Г«Г®Г¦ГЁГІГҐГ«ГјГ*Г»Гµ ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў
d = 0 'Г±Г·ВёГІГ·ГЁГЄ Г¤Г«Гї Г®ГІГ°ГЁГ¶Г*ГІГҐГ«ГјГ*Г»Гµ ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў
ReDim a(1 To n)
For i = 1 To n
a(i) = Int(Rnd * 100 - 18)
Print a(i)
If a(i) > 0 Then k = k + 1
If a(i) < 0 Then d = d + 1
Next i
Print "ГЏГ®Г«Г®Г¦ГЁГІГҐГ«ГјГ*Г»Гµ  ГЅГ«-Г®Гў"; k
Print "ГЋГІГ°ГЁГ¶Г*ГІГҐГ«ГјГ*Г»Гµ  ГЅГ«-Г®Гў"; d
If k > d Then Print "ГЏГ®Г«Г®Г¦ГЁГІГҐГ«ГјГ*Г»Гµ ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў ГЎГ®Г«ГјГёГҐ"
If k < d Then Print "ГЋГІГ°ГЁГ¶Г*ГІГҐГ«ГјГ*Г»Гµ ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў ГЎГ®Г«ГјГёГҐ"
If k = d Then Print "ГЋГІГ°ГЁГ¶Г*ГІГҐГ«ГјГ*Г»Гµ ГЁ ГЇГ®Г«Г®Г¦ГЁГІГҐГ«ГјГ*Г»Гµ ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў Г®Г¤ГЁГ*Г*ГЄГ®ГўГ®"
End Sub
                        