Lesson 10: Mastering Arrays in VB2022

' Basic array declaration
Dim numbers(4) As Integer ' 5 elements (0 to 4)

' Declaration with initialization
Dim fruits() As String = {"Apple", "Banana", "Cherry"}

' Explicit size declaration
Dim matrix(2, 3) As Integer ' 3 rows, 4 columns

' Using New keyword
Dim temperatures As Double() = New Double(4) {}

Private Sub BtnDisplay_Click(sender As Object, e As EventArgs) Handles BtnDisplay.Click
    ' Declare and initialize a 2D array
    Dim matrix(,) As Integer = {{1, 2, 3}, {4, 5, 6}, {7, 8, 9}}
    
    ' Display matrix values
    For row As Integer = 0 To matrix.GetLength(0) - 1
        Dim rowText As String = ""
        For col As Integer = 0 To matrix.GetLength(1) - 1
            rowText &= matrix(row, col) & " "
        Next
        ListBox1.Items.Add(rowText)
    Next
End Sub

Private Sub BtnSortSearch_Click(sender As Object, e As EventArgs) Handles BtnSortSearch.Click
    ' Create and initialize an array
    Dim names() As String = {"Zoe", "Alice", "Bob", "Charlie"}
    
    ' Display original array
    ListBox1.Items.Add("Original Array:")
    For Each name In names
        ListBox1.Items.Add(name)
    Next
    
    ' Sort the array
    Array.Sort(names)
    ListBox1.Items.Add("")
    ListBox1.Items.Add("Sorted Array:")
    For Each name In names
        ListBox1.Items.Add(name)
    Next
    
    ' Reverse the array
    Array.Reverse(names)
    ListBox1.Items.Add("")
    ListBox1.Items.Add("Reversed Array:")
    For Each name In names
        ListBox1.Items.Add(name)
    Next
    
    ' Search for an element
    Dim index As Integer = Array.IndexOf(names, "Bob")
    ListBox1.Items.Add("")
    ListBox1.Items.Add($"Index of 'Bob': {index}")
End Sub