Заполнить статический массив

' Заполнить статический массив случайными дробными числами в диапазоне от 0 до 1.
' Количество элементов массива определить самостоятельно.
' В этой же программе заполнить динамический массив случайными целыми числами в диапазоне от МИН до МАКС
 
Option Explicit
 
Sub ArrWork()
   ' Самостоятельно выбрали: Количество элементов массива = 20, МИН = 2, МАКС = 25
   Const N As Integer = 20, nMin As Integer = 2, nMax As Integer = 25
   ' статический массив ArrStat из N элементов. динамический массив ArrDyn из пока неизвестного количества элементов
   Dim i As Integer, ArrStat(1 To N) As Double, ArrDyn() As Integer
 
   For i = 1 To N
      ArrStat(i) = Rnd        ' Заполнить статический массив случайными дробными числами в диапазоне от 0 до 1.
   Next
   
   ReDim ArrDyn(1 To N / 2)   ' Выделить память динамическому массиву. Пусть он вдвое меньше статического для примера
   For i = 1 To N / 2
      ArrDyn(i) = Int((nMax - nMin + 1) * Rnd + nMin) ' заполнить динамический массив случайными целыми числами в диапазоне от МИН до МАКС
   Next
End Sub