Заполнение массива - VB (62743)

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

Здравствуйте! помогите решить задачу с массивом : 2. Проверить, сколько из 10 чисел, введенных пользователем, удовлетворяют условию, вывести эти числа. 2.1. отрицательные; 2.2. являются нечетными; 2.3. принадлежат интервалу (a, b), где a и b вводятся пользователем; 2.4. меньше своих индексов; 2.5*. есть ли равные числа; Вот 2.1 и начало проги , правильно ли ?:

Dim arrayTask4(9) As Integer
        Dim strArray As String
        Dim counter As Integer
        arrayTask4(0) = TextBox1.Text
        arrayTask4(1) = TextBox2.Text
        arrayTask4(2) = TextBox3.Text
        arrayTask4(3) = TextBox4.Text
        arrayTask4(4) = TextBox5.Text
        arrayTask4(5) = TextBox6.Text
        arrayTask4(6) = TextBox7.Text
        arrayTask4(7) = TextBox8.Text
        arrayTask4(8) = TextBox9.Text
        arrayTask4(9) = TextBox10.Text
        For i = 0 To 9
            If arrayTask4(i) > 10 Then counter = counter + 1
            strArray = strArray & ", " & arrayTask4(i)
        Next i
 
        For i = 0 To 9
            strArray = strArray & ", " & arrayTask4(i)
        Next i
        Label1.Text = strArray

Решение задачи: «Заполнение массива»

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

                            Dim Arr(1 To 10) As Single
Dim C1 As Integer, C2 As Integer, C3 As Single, C4 As Single, C5 As Boolean
Dim a As Single, b As Single
a = InputBox("a")
b = InputBox("b")
For i = 1 To 10
Arr(i) = InputBox("Элемент № " & i)
If Arr(i) < 0 Then C1 = C1 + 1
If Arr(i) Mod 2 <> 0 Then C2 = C2 + 1
If Arr(i) >= a And Arr(i) <= b Then C3 = C3 + 1
If Arr(i) < i Then C4 = C4 + 1
Next i
C5 = False
For i = 1 To 9
For j = i + 1 To 10
If Arr(i) = Arr(j) Then C5 = True: Exit For
Next j
Next i
If C5 = True Then
MsgBox ("1.Отрицательные " & C1 & Chr(13) & "2.Являются нечетными " & C2 & Chr(13) & "3.Принадлежат интервалу (a, b) = " & C3 & Chr(13) & "4.Меньше своих индексов = " & C4 & Chr(13) & "Есть равные")
Else
MsgBox ("1.Отрицательные " & C1 & Chr(13) & "2.Являются нечетными " & C2 & Chr(13) & "3.Принадлежат интервалу (a, b) = " & C3 & Chr(13) & "4.Меньше своих индексов = " & C4 & Chr(13) & "Нет равных")
End If
                        