Заполнить вектор значениями положительных элементов вектора C. Размерность вектора C произвольная - VB

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

Заполнить вектор значениями положительных элементов вектора C. Размерность вектора C произвольная.

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim m As Integer, i As Integer
Dim a() As Single, c() As Single
m = InputBox("Введите размерность массива")
ReDim a(1 To m), c(1 To m)
For i = 1 To m
c(i) = InputBox("c(" & i & ")", "Ввод значений элементов массива C")
Next
Print "Исходный массив:"
For i = 1 To m
Print Spc(4); "c(" & i & ") = " & Format(c(i), "0.00")
Next
For i = 1 To m
If c(i) = Abs(i) Then
a(i) = c(i)
End If
Next
Print "Результат:"
For i = 1 To m
Print Spc(4); Format(a(i), "0.00")
Next
End Sub

Что не так? Если начать заполнять вектор отрицательными значениями в результате выдает все нули.

Решение задачи: «Заполнить вектор значениями положительных элементов вектора C. Размерность вектора C произвольная»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim m As Integer, i As Integer
Dim a() As Single, c() As Single
m = InputBox("Введите размерность массива")
ReDim a(1 To m) 'здесь вы сами объявили вектор со всеми все нулями.
ReDim c(1 To m)
For i = 1 To m
  c(i) = InputBox("c(" & i & ")", "Ввод значений элементов массива C")
Next
Print "Исходный массив:"
For i = 1 To m
  Print Spc(4); "c(" & i & ") = " & Format(c(i), "0.00")
Next
For i = 1 To m
'  If c(i) = Abs(i) Then 'здесь сравниваете элемент вектора с модулем индекса (который всегда положителен)
  If c(i) > 0 Then
    a(i) = c(i)
  End If
Next
Print "Результат:"
For i = 1 To m
  Print Spc(4); Format(a(i), "0.00")
Next
End Sub