Массив: создать двумерный массив n * m, заполненный рандомными вещественными числами - VBA
Формулировка задачи:
вводятся 2 числа n и m, создать двумерный массив n*m заполненный рандомными вещественными числами (с точностью до 2 знака)
PS нужна проверка на вводимые данные
выдает ошибку constant expression required и выделяет m и n в задании массива
Решение задачи: «Массив: создать двумерный массив n * m, заполненный рандомными вещественными числами»
textual
Листинг программы
Public Sub mARRAY_dict() Dim i&, j&, str$ str = InputBox("Введите количество строчек", , 5) & Space(1) & _ InputBox("Введите количество столбцов", , 4) With CreateObject("scripting.dictionary"): Randomize For i = 1 To CLng(Split(str, Space(1))(0)): .Add i, New Collection For j = 1 To CLng(Split(str, Space(1))(1)) .Item(i).Add Round((9999 * Rnd + 1) / 100, 2) Next 'j Next 'i str = vbNullString For i = 1 To .Count For j = 1 To .Item(i).Count If j < .Item(i).Count Then str = str & Space(2) & .Item(i).Item(j) & ";" Else: str = str & Space(2) & .Item(i).Item(j) & vbNewLine End If Next 'j Next 'i End With MsgBox str & Chr(13) & String(30, "-") & Chr(13) & Space(12) & "D O N E!" End Sub