Вывести значения функции на заданном интервале - VB

DIM a(1 TO 10)
 
PRINT "Enter elements:"
FOR i = 1 TO 10
  INPUT a(i)
NEXT i
 
k = 0
FOR i = 1 TO 10
  IF a(i) < 0 THEN
    PRINT a(i); " ";
    k = k + 1
  END IF
NEXT i
 
PRINT
PRINT "Number of negative: "; k