[VBA] Для квадратной матрицы А найти А2

[SkyGir]

Здравствуйте, пожалуйста подскажите, что не так. Вроде все считает, но считает как-то коряво.

Option Explicit
Option Base 1

Sub Massiv()
    Dim mass() As Double, i As Integer, j As Integer, s$, n As Integer, A2 As Double
    n = InputBox(“Введите количество элементов массива", "Определение размера массива")
    ReDim mass(1 To n, 1 To n) As Double
    Randomize()
    For i = 1 To n
        For j = 1 To n
            mass(i, j) = Int(10 * Rnd + 1)
        Next j
    Next i
    For i = 1 To n
        For j = 1 To n
            A2 = mass(i, j) ^ 2
        Next j
    Next i
    s = ""
    For i = 1 To n
        For j = 1 To n
            s = s & mass(i, j) & "   "
        Next j
        s = s & Chr(13)
    Next i
    MsgBox("Massiv: " & Chr(13) & s & Chr(13) & "Квадрат матрицы= " & A2)
End Sub

[Serge_Bliznykov]

A2 - это что? Что нужно посчитать то в задании?

[SkyGir]

Так написано в задании, но думаю,надо вывести квадрат матрицы

[Serge_Bliznykov]

Сообщение от SkyGir

Так написано в задании

не вижу задания, поэтому ничего не могу сказать, что там у Вас в задании написано.

Сообщение от SkyGir

надо вывести квадрат матрицы

что такое "квадрат матрицы"?
Дайте определение и/или формулу.

например, для матрицы
1 2 3
4 5 6
7 8 9

чему будет равен "квадрат матрицы" ?

[SkyGir]

Для квадратной матрицы А найти А2-Вот и все задание
Видимо, возвести матрицу в квадрат
1 4 9
16 25 36
49 64 81

[Serge_Bliznykov]

Сообщение от SkyGir

Видимо, возвести матрицу в квадрат
1 4 9
16 25 36
49 64 81

это называется не "возвести матрицу в квадрат",
а получить новую матрицу, элементы которой равны квадратам соотвествующих элементов исходной матрицы.

Sub Massiv()
    Dim mass() As Double, A2() As Double, i As Integer, j As Integer, s$, s2$, n As Integer
    n = InputBox("Введите количество элементов массива", "Определение размера массива")
    ReDim mass(1 To n, 1 To n) As Double
    Randomize
    For i = 1 To n
        For j = 1 To n
            mass(i, j) = Int(10 * Rnd + 1)
        Next j
    Next i

    ReDim A2(1 To n, 1 To n) As Double
    For i = 1 To n
        For j = 1 To n
            A2(i, j) = mass(i, j) ^ 2
        Next j
    Next i

    s = ""
    s2 = ""
    For i = 1 To n
        For j = 1 To n
            s = s & mass(i, j) & "   "
            s2 = s2 & A2(i, j) & "   "
        Next j
        s = s & Chr(13)
        s2 = s2 & Chr(13)
    Next i
    MsgBox ("Исходная матрица: " & Chr(13) & s & Chr(13) & "Матрица с квадратами: " & Chr(13) & s2 & Chr(13))
End Sub

[SkyGir]

Спасибо огромное, теперь понял в чем ошибался