Программа сортировки массива

Поскольку мы уже обладаем некоторыми начальными знаниями, попробуем создать простую программу, в которой мы будем вводить числа случайным образом. А программа будет выводить эти числа по возрастанию. Итак, создадим новое консольное приложение и добавим в него следующий код:

Module Module1

    Sub Main()

        Console.WriteLine("Введите восемь чисел")
        'Массив для хранения восьми чисел
        Dim nums(7) As Integer
        For i As Integer = 0 To nums.Length - 1
            Console.Write("{0}-е число: ", i + 1)
            nums(i) = Int32.Parse(Console.ReadLine())
        Next

        'Алгоритм сортировки
        Dim temp As Integer = nums(0)
        For i As Integer = 0 To nums.Length - 1
            For j As Integer = i + 1 To nums.Length - 1
                If nums(i) > nums(j) Then
                    temp = nums(i)
                    nums(i) = nums(j)
                    nums(j) = temp
                End If
            Next
        Next

        'Выводим элементы массива
        For Each i As Integer In nums
            Console.Write("{0} ", i)
        Next

        Console.ReadLine()

    End Sub

End Module

В начале программы мы осуществляем ввод чисел с клавиатуры. За ввод чисел отвечает метод Console.ReadLine(). Но поскольку он возвращает введенную строку, нам желательно преобразовать строку в число с помощью метода Int32.Parse. Почему желательно? Потому что по умолчанию функция Option Strict имеет значение Off, поэтому допустимо неявное преобразование типов.

Затем происходит собственно сортировка. Мы вводим некоторое значение temp. Потом в коде внутреннего цикла осуществляем через эту переменную обмен значениями. В конце программы мы выводим отсортированный массив на экран.