Массив: создать двумерный массив 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

Оцени полезность:

15   голосов , оценка 3.933 из 5
Похожие ответы