йессс!!! заработало! транспонирование со сложением матриц заработало!

во чё вышло:



' Транспонирование.



Public Sub TranspMatrix()

Dim avarMatrix() As Variant

Dim avarMatrixTransp() As Variant

Dim intI As Integer

Dim intJ As Integer



ReDim avarMatrix(1 To 3, 1 To 2)



Randomize



Debug.Print "Исходная матрица: "



For intI = LBound(avarMatrix, 1) To UBound(avarMatrix, 1)

For intJ = LBound(avarMatrix, 2) To UBound(avarMatrix, 2)

avarMatrix(intI, intJ) = Int(Rnd * 10) + 1

Debug.Print avarMatrix(intI, intJ);

Next intJ

Debug.Print ""

Next intI



Debug.Print "=========================="



ReDim avarMatrixTransp(1 To UBound(avarMatrix, 2), 1 To UBound(avarMatrix, 1))



Debug.Print "Транспонированная матрица: "



For intJ = LBound(avarMatrix, 2) To UBound(avarMatrix, 2)

For intI = LBound(avarMatrix, 1) To UBound(avarMatrix, 1)

avarMatrixTransp(intJ, intI) = avarMatrix(intI, intJ)

Debug.Print avarMatrixTransp(intJ, intI);

Next intI

Debug.Print ""

Next intJ

End Sub



' Суммирование.



Public Sub SummMatrix()

Dim avarMatrix1() As Variant

Dim avarMatrix2() As Variant

Dim avarMatrixSumm() As Variant

Dim intI As Integer

Dim intJ As Integer



ReDim avarMatrix1(1 To 3, 1 To 2)

ReDim avarMatrix2(1 To 3, 1 To 2)

ReDim avarMatrixSumm(1 To 3, 1 To 2)



Randomize



Debug.Print "Матрица № 1: "



For intI = LBound(avarMatrix1, 1) To UBound(avarMatrix1, 1)

For intJ = LBound(avarMatrix1, 2) To UBound(avarMatrix1, 2)

avarMatrix1(intI, intJ) = Int(Rnd * 10) + 1

Debug.Print avarMatrix1(intI, intJ);

Next intJ

Debug.Print ""

Next intI



Debug.Print "=========================="

Debug.Print "Матрица № 2: "



For intI = LBound(avarMatrix2, 1) To UBound(avarMatrix2, 1)

For intJ = LBound(avarMatrix2, 2) To UBound(avarMatrix2, 2)

avarMatrix2(intI, intJ) = Int(Rnd * 10) + 1

Debug.Print avarMatrix2(intI, intJ);

Next intJ

Debug.Print ""

Next intI



Debug.Print "=========================="

Debug.Print "Суммированная матрица: "



For intI = LBound(avarMatrixSumm, 1) To UBound(avarMatrixSumm, 1)

For intJ = LBound(avarMatrixSumm, 2) To UBound(avarMatrixSumm, 2)

avarMatrixSumm(intI, intJ) = avarMatrix1(intI, intJ) + _

avarMatrix2(intI, intJ)

Debug.Print avarMatrixSumm(intI, intJ);

Next intJ

Debug.Print ""

Next intI

End Sub





вот такая вот хня у будующих програмистов...понимаю где-то половину...мож чуть больше....не быть мне програмёром