Перемножение квадратных матриц - VB

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

Я такой кагбе сочиняю прогу для перемножения двух квадратных матриц, но вот как-то дела мои не клеются( Зато есть унылая наработка:

                    Листинг программы
                
 
                        
                          
                    
  Dim n, i, j As Integer, VisMas As String
        n = InputBox("Сколько строк в массиве???")
        Dim Mas1(n - 1, n - 1), Mas2(n - 1, n - 1), Mas3(n - 1, n - 1), k, s As Integer
        For i = 0 To n - 1
            For j = 0 To n - 1
                Mas1(i, j) = InputBox("Ввведите-ка очередной элемент")
            Next j
        Next i
 
        For i = 0 To n - 1
            For j = 0 To n - 1
                Mas2(i, j) = InputBox("Ввведите-ка очередной элемент")
            Next j
        Next i
 
        For i = 0 To n - 1
            For j = 0 To n - 1
                For k = 0 To n - 1
                    s = s + Mas1(i, k) * Mas2(k, j)
                    Mas3(i, j) = s
                Next k
            Next j
        Next i
 
        For i = 0 To n - 1
            VisMas = ""
            For j = 0 To n - 1
                VisMas = VisMas & " " & Mas3(i, j)
            Next j
            ListBox1.Items.Add(VisMas)
 
        Next i

Соль ошибки видимо в логике, но её я не нахожу (ни логику ни ошибку).

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

textual
                            Листинг программы 
                        
For k = 0 To n - 1
 s = s + Mas1(i, k) * Mas2(k, j)
 Mas3(i, j) = s
 Next k 
Mas3(i, j) = s

Оцени полезность:

11 голосов , оценка 3.909 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы