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

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

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ListBox2.Items.Clear()
        ListBox1.Items.Clear()
        Dim O(17) As Integer
        Dim index As Integer
        Randomize()
        For index = 1 To 17
            O(index) = Int((Rnd() * 54) - 22)
            ListBox1.Items.Add(O(index))
        Next index
        For index = 1 To 17
            If O(index) > 0 And O(index) Mod 2 = 0 Then
                ListBox2.Items.Add(O(index))
            End If
        Next
    End Sub

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

Imports System.Linq
 
Module Program
  Sub Main()
    Dim r As New Random()
    Dim O As Int32() = Enumerable.Range(0, 17).Select(Function(i) r.Next(-22, 34)).ToArray()
 
    Console.WriteLine("Массив:")
    For Each i As Int32 In O
      Console.Write("{0} ", i)
    Next
 
    Console.WriteLine(vbLf & "Искомые элементы:")
    Dim elem = O.Where(Function(i) i > 0 AndAlso i Mod 2 = 0). OrderBy(Function(i) i).ToList()
    For Each e As Int32 In elem
      Console.Write("{0} ", e)
    Next
  End Sub
End Module

 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 < 0 Then Console.Write(Ind & Space(2))
        Next
        Console.Beep()
        Console.ReadLine()
    End Sub