Заполните массив случайными вещественными числами от 50 до 90 и вывести на печать в строку через запятую.

Sub massiv()   M=InputBox("введите размерность массива M ")   i=1   S=""   Dim mas()   ReDim mas(M)   While i<=Int(M)       mas(i)=Round(Rnd*100)       if (mas(i)>=50) And (mas(i)<=90) Then           S=S+Str(mas(i))           If i<>Int(M) Then S=S+","           i=i+1        End if     Wend    MsgBox S End Sub