умножение матрицы на вектор в qbasic

подскажите с написанием проги умножения матрицы на вектор, чтобы в итоге получился вектор.
dim a(5,5),b(5), c(5)
FOR i = 1 TO 5
s = 0
FOR j = 1 TO 5
s = s + a(i, j) * b(j)
NEXT j
с (i)=s
NEXT i
что не так?