Как создать массив случайных чисел - Visual Basic .NET

Формулировка задачи:

Module Module1
 
    Sub Main()
        Dim O(17) As Integer
        Dim index As Integer
        Randomize()
        For index = 1 To 17
            O(index) = Int((-22 * Rnd()) + 34)
            Debug.WriteLine(O(index))
        Next index
        Debug.WriteLine("")
 
    End Sub
 
End Module

Есть массив О(17).Его нужно заполнить случайными целыми числами от -22 до +34.Вевести на консоль положительные(четные).

Решение задачи: «Как создать массив случайных чисел»

textual
                            Листинг программы 
                        

                            Module Module1
    Sub Main()
        Dim _Rnd As New Random()
        Dim O(17) As Integer
 
        Console.WriteLine("======МАССИВ СЛУЧАЙНЫХ ЧИСЕЛ (от -22 до 33)" & vbCrLf)
        For i As Integer = 0 To O.Length - 1
            O(i) = _Rnd.Next(-22, 34)  :    Console.Write(O(i) & Space(2))
        Next
 
        Console.WriteLine(vbCrLf & vbCrLf & "======ВСЕ ЧЕТНЫЕ ЧИСЛА ИЗ МАССИВА" & vbCrLf)
        For Each Ind As Integer In O
            If Ind Mod 2 = 0 And Ind > 0 Then   Console.Write(Ind & Space(2))
        Next
 
        Console.Beep()
        Console.ReadLine()
    End Sub
End Module
                        