[VBA] Сформировать матрицу, у которой первая строка – произвольные числа, вторая строка - квадраты этих чисел, третья строка - кубы этих чисел и т.д.

[SkyGir]

Здравствуйте, пожалуйста помогите разобраться с задачей

Option Explicit On
Option Base 1
Sub Массив()
    Dim mass() As Integer, i As Integer, j As Integer, str As String, n As Integer, t As Integer

    n = InputBox("Введите количество элементов массива", "Определение размера массива")
ReDim mass(1 To n, 1 To n) As Integer
    Randomize()
    For i = 1 To n
        For j = 1 To n
            mass(i, j) = Int(10 * Rnd + 1)
            str = str & mass(i, j) & "   "
        Next j
        str = str & Chr(13)
    Next i
    For i = 1 To n
        t = 1
        For j = 1 To n
            If i = 1 Then
                mass(i, j) = mass(i, j) ^ (t)
            Else
                mass(i, j) = mass(i, j) ^ (t + 1)
            End If
        Next j
    Next i
    MsgBox("Массив: " & str)
End Sub

[Serge_Bliznykov]

ReDim mass(1 To n, 1 To n) As Integer
    Randomize()
    For j = 1 To n
            mass(1, j) = Int(10 * Rnd + 1)
    Next j
    For i = 2 To n
        For j = 1 To n
            mass(i, j) =  mass(1, j) ^ (j+1)
        Next j
    Next i

[SkyGir]

Спасибо, сейчас будем внедрять. Пока не работает первую строчку создает, а остальные нулевые

Option Explicit
Option Base 1
Sub Ìàññèâ()
    Dim mass() As Integer, i As Integer, j As Integer, str As String, n As Integer
    
    n = InputBox("Ââåäèòå êîëè÷åñòâî ýëåìåíòîâ ìàññèâà", "Îïðåäåëåíèå ðàçìåðà ìàññèâà")
ReDim mass(1 To n, 1 To n) As Integer
    Randomize
    For i = 1 To n
        For j = 1 To n
            mass(1, j) = Int(10 * Rnd + 1)
            str = str & mass(i, j) & "   "
        Next j
        str = str & Chr(13)
    Next i
For i = 2 To n
            For j = 1 To n
            mass(i, j) = mass(1, j) ^ (j + 1)
        Next j
    Next i
    MsgBox ("Ìàññèâ: " & str)
End Sub

[Serge_Bliznykov]

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

Спасибо, сейчас будем внедрять

простите, куда?

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

mass(i, j) =  mass(1, j) ^ (j+1)

тут ошибка.
должно быть

            mass(i, j) = mass(1, j) ^ i

ну и полностью код я бы так записал:

Sub Массив()
    Dim mass() As Double, i As Integer, j As Integer, s$, n As Integer

    n = InputBox("Введите количество элементов массива", "Определение размера массива")


    ReDim mass(1 To n, 1 To n) As Double
    Randomize
    For j = 1 To n
            mass(1, j) = Int(10 * Rnd + 1)
    Next j
    For i = 2 To n
        For j = 1 To n
            mass(i, j) = mass(1, j) ^ i
        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 ("Массив: " & Chr(13) & s)
End Sub

[SkyGir]

Ваш код в мой корявый кодЕще раз человеческое спасибо

[SkyGir]

Ваш полный код отлично работает