Write #2, c(i,j)

Print #3, c(i,j);

Print #4, Tab(j*5);c(i,j);

Next j

Print#4, Spc(0)

Next i

Close #2

Close #3

Close #4

End Sub

Private Sub CommandButton1_Click()

Dim a(1 To 2,1 To 3) As Integer

Dim b(1 To 3, 1 To 4) As Double

Dim c(1 To 2, 1 To 4) As Double

Dim cm As String

Open “c\ windows \Рабочий стол \Учебный процесс\ vec.txt” For Input As #1

For i= 1 To 2

For j = 1 To 3

‘a(i,j) = InputBox(“a(“ & Str$(i) &”,” & Str$(j) & “)=”, “введите элементы массива А”)

Input #1,a(i,j)

Next j

Next i

For i = 1 To 3

For j = 1 To 4

‘b(i,j) = InputBox(“bb(“& Str$(i) & “,” & Str$(j) &”)=”,”введите элементы массива В”)

Input #1, b(i,j)

Next j

Next i

Close #1

Cells(1,5)= “Матрица В”

For i = 1 To 3

For j = 1 To 4

Cells(i+1,j+4)=b(i,j)

Next j

Next i

For i=1 To 2

For j = 1 To 4

c(i,j) = 0

For k = 1 To 4

c(i, j) = c(i,j)+a(i,k)*b(k,j)

Next k

Next j

Next i

Open “c\ windows \Рабочий стол \Учебный процесс\ результат перемножения матриц.txt” For Output As #2

Open “c\ windows \Рабочий стол \Учебный процесс\ результат перемножения матриц.txt” For Output As #3

Open “c\ windows \Рабочий стол \Учебный процесс\ результат перемножения матриц pri.txt” For Output As #4

Private Sub CommandButton1_Click()

Dim mas(1 To 3, 1 To 2) As Integer

Range(“a1:b3).Select

For i=1 To 3

For j= 1 To 2

mas(i,j)= Selection.Cells(i,j). Value

Cells(i+5,j+5)=mas(i,j)

Next j

Next i