Массивы ГОТОВАЯ программа

Option Explicit
Private n As Integer, i As Integer, _
        x() As Single, _
        newline As String, _
        compare As Single, _
        sum_compare As Integer, abs_compare As Single, _
        product As Integer
'объявление всех переменных
 
Private Sub cmdEnter_Click()
        cmdRun.Enabled = True
        newline = Chr(13) + Chr(10)
        txtX.Text = "Массив N:" + newline
        
'задаем кол-во. элементов в переменную n
    n = Val(InputBox("Введите число", "Задание размерности массива"))
ReDim x(1 To n)
If opbHand.Value = True Then
    For i = 1 To n
        x(i) = Val(InputBox("Ввод" & i & "-го элемента", "Ввод массива"))
    Next i
Else
    For i = 1 To n
        x(i) = Int(n * Rnd - n / 2)
    Next i
End If
    cmdEnter.Caption = "Массив введен!"
        For i = 1 To n
        txtX.Text = txtX.Text + Format(x(i), "0.0 " + newline)
    Next i
End Sub
 
Private Sub cmdRun_Click()
    compare = 0                         'содержит сумму всех (-)
For i = 1 To n
    If x(i) >= 0 Then                    'Проверяем число на (-)
        compare = compare + x(i)        'Прибавляем все (-)
        sum_compare = sum_compare + 1   'Подсчитываем все (-)
    End If
Next i
    abs_compare = Abs(compare / sum_compare)     'Высчитываем (условие)
    lblNegativeElements.Caption = abs_compare    'Выводим результат
 
'Определяем то что требовалось определить по условию лаб.роб
For i = 1 To n
    If x(i) < abs_compare Then          'Проверяем число на (условие)
        product = product + 1           'Подситываем кол-во элементов
    End If
Next i
    lblResult.Caption = product    'Выводим Ответ!
    cmdRun.Enabled = False         'Деактивируем кнопку "Ответ"
End Sub
 
Private Sub cmdClear_Click()
            cmdRun.Enabled = False
            cmdEnter.Caption = "Ввести массив..."
            cmdEnter.SetFocus
            txtX.Text = ""
            lblNegativeElements.Caption = "0"
            lblResult.Caption = "0"
        For i = 1 To n
            x(i) = 0
        Next i
        product = Empty
        abs_compare = Empty
End Sub
 
Private Sub cmdExit_Click()
End
End Sub