Заполнить одномерный массив из 5 элементов случайными числами

        Dim a(0 To 4) As Long
        Dim b As String = ""
        For i As Integer = 0 To 4
            Randomize()
            a(i) = Int(Rnd() * 100) ' получаем случайные числа от 0 до 100
            b = b & Chr(13) & a(i) ' пишем полученные цифры в переменную через строку
        Next
 
        MsgBox(b) '  выводим сообщение с полученными цифрами
 
 
        Dim ii, z As Long
        ii = 0
 
        ' цикл для сортировки
        Do Until ii = 4
            z = a(ii)
            If a(ii) < a(ii + 1) Then
                a(ii) = a(ii + 1)
                a(ii + 1) = z
                ii = -1
            End If
            ii = ii + 1
        Loop
 
        b = ""
        For i = 0 To 4
            b = b & Chr(13) & a(i)
        Next
 
        MsgBox(b)