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

0 голосов
65 просмотров

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


image

Информатика (151 баллов) | 65 просмотров
0

Чем заполнять сформированную матрицу?

0

не знаю, это всё задание

0

На будущее: никому не интересно, какое задание у Вас. Здесь автор задания - Вы и поэтому ответы "не знаю" считаются некорректными и могут привести к удалению задания, как неполного.

Дан 1 ответ
0 голосов
Правильный ответ

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

(142k баллов)