5) Массивы VB.Net

Извлечение содержимого массива

Module Module1
    Sub Main()

       Dim students(0 to 2) As String 

        students(0) = "John"

        students(1) = "Alice"

        students(2) = "Antony"

        Console.WriteLine("First student is {0} ", students(0))

        Console.WriteLine("Second student is {0} ", students(1))

        Console.WriteLine("Third student is {0} ", students(2))


        Console.ReadKey()

    End Sub

End Module

Мы использовали следующий код:

Объяснение кода:

1. Создание модуля с именем Module1.
2. Создание основной подпроцедуры.
3. Создание массива с именем студентов для хранения строковых элементов. Массив будет хранить элементы от индекса 0 до индекса 2, что означает, что он будет иметь в общей сложности 3 элемента.
4. Добавляя имя John в качестве первого элемента массива, то есть John хранится с индексом 0.
5. Добавляем имя Алиса в качестве второго элемента массива, то есть Алиса хранится по индексу 1.
6. Добавляя имя Антоний в качестве третьего элемента массива, то есть Антоний хранится в индексе 2.
7. Печать некоторого текста и элемента, сохраненного с индексом 0 массива студентов на консоли. Students (0) помогает нам получить доступ к элементу по индексу 0 массива с именем Students.
8. Печать некоторого текста и элемента, хранящегося в индексе 1 массива студентов на консоли. Студенты (1) помогают нам получить доступ к элементу в индексе 1 массива с именем студентов.
9. Печать некоторого текста и элемента, хранящегося в индексе 2 массива студентов на консоли. Студенты (2) помогают нам получить доступ к элементу в индексе 2 массива с именем студентов.
10. Пауза в окне консоли или ожидание действия пользователя для его закрытия.
11. Конец подпроцедуры.
12. Конец модуля.

Добавление новых элементов в массив

Module Module1
    Sub Main()

        Dim nums() As Integer

        ReDim nums(1)
        nums(0) = 12
        nums(1) = 23

        For x = 0 To nums.Length - 1
            Console.WriteLine("Initial array element: {0}", nums(x))
        Next

        ReDim Preserve nums(2)
        nums(2) = 35

        For x = 0 To nums.Length - 1
            Console.WriteLine("Final array element: {0}", nums(x))
        Next

        Console.ReadKey()
    End Sub

End Module

Мы использовали следующий код:

Объяснение кода:

1. Создание модуля с именем Module1.
2. Создание основной подпроцедуры.
3. Создание массива с именем nums для хранения целочисленных значений.
4. Указание того, что в приведенном выше массиве будут храниться два элемента, то есть с индексами 0 и 1, в то же время оставляя место для изменения размера.
5. Добавление элемента 12 в индекс 0 массива номеров.
6. Добавление элемента 23 в индекс 1 массива nums.
7. Использование цикла for для создания переменной x, чтобы помочь нам перебирать от первого до последнего элемента массива nums. Обратите внимание, что массив теперь имеет два элемента, 12 и 23.
8. Печать некоторого текста и элементов массива на консоли.
9. Завершение цикла for и переход к следующей части кода.
10. Измените размеры массива, чтобы элементы могли иметь индексы от 0 до 2. Теперь он сможет хранить 3 элемента, а не 2. Ключевое слово Preserve помогает нам поддерживать текущие элементы массива, то есть 12 и 23.
11. Добавление элемента 35 в индекс 2 массива. Массив теперь имеет три элемента: 12, 23 и 35.
12. Использование цикла for для создания переменной x, чтобы помочь нам перебирать от первого до последнего элемента массива nums. Обратите внимание, что теперь массив состоит из трех элементов: 12, 23 и 35.
13. Печать некоторого текста и элементов массива на консоли.
14. Завершение цикла for и переход к следующей части кода.
15. Приостановите окно консоли, ожидая действий пользователя, чтобы закрыть его.
16. Конец подпроцедуры.
17. Конец модуля.

Удаление массива

Dim nums(1) As Integer
        nums(0) = 12
        nums(1) = 23
Erase nums

Функция разделения

Module Module1
    Sub Main()

        Dim myarray() As String
        Dim guru99 As String
        Dim x As Integer

        guru99 = "Welcome, to, Guru99"
        myarray = Split(guru99, ", ")

        For x = LBound(myarray) To UBound(myarray)

            Console.WriteLine(myarray(x))

        Next

        Console.ReadKey()
    End Sub

End Module

Мы использовали следующий код:

Объяснение кода:

1. Создание модуля с именем Module1.
2. Начало основной подпроцедуры.
3. Создание массива с именем myarray для хранения строковых значений.
4. Создание строковой переменной с именем guru99.
5. Создание целочисленной переменной с именем x.
6. Присвоение строки переменной guru99.
7. Разбиваем строку выше на части и помещаем их в массив с именем myarray. «,» (Запятая) — это разделитель, поэтому функция разбиения будет использовать его для обозначения конца различных частей строки.
8. Использование переменной x для перебора массива с именем myarray. LBound и UBound определяют нижние и верхние границы массива соответственно.
9. Печать значений массива с именем myarray на консоли.
10. Завершение цикла и

Функция соединения

Module Module1
    Sub Main()

        Dim students(0 To 2) As String

        students(0) = "John"

        students(1) = "Alice"

        students(2) = "Antony"

        Dim classmates As String


        classmates = Join(students, ", ")

        Console.WriteLine(classmates)

        Console.ReadKey()
    End Sub

End Module