Поскольку мы уже обладаем некоторыми начальными знаниями, попробуем создать простую программу, в которой мы будем вводить числа случайным образом. А программа будет выводить эти числа по возрастанию. Итак, создадим новое консольное приложение и добавим в него следующий код:
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
. Потом в коде внутреннего цикла осуществляем через
эту переменную обмен значениями. В конце программы мы выводим отсортированный массив на экран.