Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Помогите, пожалуйста, задана задача в VBA. Формирование двумерных массивов. Сформировать матрицы произвольной размерности на рабочем листе Excel. Вот сама матрица

Ответ оставил Гость

Sub aaa()
    Dim m As Integer, n As Integer
    m = InputBox("Введите число строк в матрице")
    n = InputBox("Введите число столбцов в матрице")
    ReDim a(1 To m, 1 To n) As Variant
    Массив создан, теперь его надо заполнить
    Ниже - вариант заполнения случайными числами
    Randomize Timer
    For i = 1 To m
        For j = 1 To n
            a(i, j) = 51 * Rnd() - 25
        Next j
    Next i
    Собственно, вывод массива на рабочий лист
    Range(Cells(1, 1), Cells(m, n)) = a
End Sub