Умножение матрицы на вектор - VB (63041)

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

Задача: Даны натуральные числа n,m последовательность а1…..аm и матрица размером n*m. Найти произведение матрицы на вектор. Результат поместить в одномерный массив длиной n.Причем строки матрицы должны быть по размеру равны столбцам вектора ,так как нельзя будет умножать на вектор! Помогите дописать формулу в vba....пожалуйста!!!!

null

Вот что я наколякала.......в итоге произведение выдает 0.........помогите доделать!!!!

Решение задачи: «Умножение матрицы на вектор»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
   Dim n As Integer
   Dim m As Integer
   Dim A() As Integer 'матрица
   Dim x() As Integer 'начальный столбец
   Dim y() As Integer 'итоговый столбец y=A*x
   
   n = InputBox("введите количество строк матрицы")
   m = InputBox("введите количество столбцов матрицы")
   ReDim A(1 To n, 1 To m): ReDim x(1 To m): ReDim y(1 To n)
   
   For i = 1 To n
      For j = 1 To m
         A(i, j) = InputBox("введи a(" & i & "; " & j & ")")
      Next j
   Next i
   
   For j = 1 To m
      x(j) = InputBox("вводи b(" & j & ")")
   Next j
   
   For i = 1 To n
      For j = 1 To m
         y(i) = y(i) + A(i, j) * x(j)
      Next j
      S = S & y(i) & vbNewLine
   Next i
   
   MsgBox S
End Sub