Question

Задача VBA Дан динамический массив Х(n). Вывести элементы массива X, каждый из которых представляет собой квадрат элемента массива Y, стоящий на нечетном месте.

Answer 1

Sub aaa()
    Rows.Clear
    Dim n As Integer, k As Integer, i As Integer
    n = CInt(InputBox("n="))
    k = 2 * n - 1
    ReDim y(1 To k) As Integer
    Randomize Timer
    For i = 1 To k
        y(i) = Int(Rnd * 100 - 50)
    Next i
    Dim ry As Range
    Set ry = Range(Cells(2, 2), Cells(2, k + 1))
    ry = y
    ReDim x(1 To n) As Integer
    Dim rx As Range
    Set rx = Range(Cells(3, 2), Cells(3, n + 1))
    For i = 1 To n
        x(i) = y(2 * i - 1) ^ 2
    Next i
    rx = x
    Cells(2, 1) = "y"
    Cells(3, 1) = "x"
    Set ry = Range(Cells(2, 1), Cells(2, k + 1))
    Set rx = Range(Cells(3, 1), Cells(3, n + 1))
End Sub

Answer 2

Для решения данной задачи в VBA можно использовать следующий код:

vbaCopy code
Sub PrintSquaredElements()
    Dim X() As Variant
    Dim Y() As Variant
    Dim n As Long
    Dim i As Long
    
    ' Задаем значения для массива Y
    Y = Array(1, 2, 3, 4, 5) ' Пример значений, можно изменить на свои
    
    ' Определяем размер массива X на основе размера массива Y
    n = WorksheetFunction.RoundUp(UBound(Y) / 2, 0)
    
    ' Устанавливаем размер массива X
    ReDim X(1 To n)
    
    ' Заполняем массив X квадратами элементов массива Y, стоящими на нечетных местах
    For i = 1 To n
        X(i) = Y(i * 2 - 1) ^ 2
    Next i
    
    ' Выводим элементы массива X
    For i = 1 To n
        Debug.Print X(i)
    Next i
End Sub

В данном примере массив Y содержит значения [1, 2, 3, 4, 5]. Алгоритм заполняет массив X квадратами элементов массива Y, стоящими на нечетных местах (индексы 1, 3 и 5). Результат выводится в окне "Immediate" в VBA-редакторе (нажмите Ctrl + G, чтобы открыть его).

Вы можете изменить значения в массиве Y на свои или модифицировать код по своим потребностям.