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

  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