Ход работы

	Создал новый проект. Разместил на форме текстовое поле txtDim и кнопкe cmdDim. Присвоил свойству Caption значение Заполнить.
	Установил для свойства MultiLine текстового поля значение True и подобрал размер шрифта так, чтобы массив распечатывался в одной строке текстового поля.
	Ввёл для кнопки событийную процедуру заполнения массива и его вывода в текстовое поле: Dim bytI, bytA(1 To 10) As Byte Private Sub cmdDim_Click() Randomize For bytI = 1 To 10 bytA(bytI) = Int(Rnd * 10) txtDim.Text = txtDim.Text + Str(bytA(bytI)) NextbytI End Sub
	Запустил проект и несколько раз щелкнул по кнопке Заполнить. В текстовом поле появяились последовательности случайных чисел, различающиеся между собой.
	Разместил на форме кнопку cmdMin и присвоил свойству Caption значение Мин.элемент. Cоздал для нее событийную процедуру поиска минимального элемента: Private Sub cmdMin_Click() bytMin = bytA(1) bytN = 1 For bytI = 2 To 10 If bytA(bytI) < bytMin Then bytMin = bytA(bytI): bytN = bytI Next bytI Print "Минимальный элемент "; bytMin; "его индекс"; bytN End Sub
	Запустил проект. Последовательно щелкал на кнопках Заполнить и Мин. элемен т. В текстовом окне будет появляться заполненный массив, а на форме будет печататься минимальный элемент и его индекс.
	Ввёл программный код общей процедуры поиска минимального элемента и поместил ее в начало программного кода проекта. Объявил переменные, используемые во всех процедурах: Dim bytA(1 To 10), bytMin, bytI, bytJ, bytK, bytR, bytN As Byte 'общая процедура поиска минимального элемента Sub МинЭлемент(bytI, bytN As Byte) bytMin = bytA(bytI) bytN = bytI ForbytJ = bytI + 1 To 10 If bytA(bytJ)< bytMin Then bytMin = bytA(bytJ): bytN = bytJ Next bytJ End Sub
	Поместил на форму текстовое поле txtSort и кнопку cmdSort. Присвоил свойству кнопки Caption значение Сортировать.
	Ввёл программный код событийной процедуры сортировки массива: 'событийная процедура сортировки Private Sub cmdSort_Click() txtSort.Text = "" For bytI = 1 To 9 'вызов общей процедуры поиска минимального элемента Call МинЭлемент(bytI, bytN) 'перестановка bytR = bytA(bytI) bytA(bytI) = bytA(bytN) bytA(bytN) = bytR 'печать массива для каждого цикла сортировки For bytK = 1 To 10 txtSort.Text = txtSort.Text + Str(bytA(bytK)) Next bytK Next bytI End Sub
	Для большей наглядности разместил на форме две метки с номерами элементов массива (горизонтальная) и значениями счетчика цикла сортировки (вертикальная).
	Запустил проект на выполнение. Щелкнул по кнопкам Заполнить массив, Мин. элемент и Сортировка.
	Процедуру производил многократно и наблюдал процесс сортировки для различных вариантов заполнения массива.
	Сохранил проект. Готовый проект prj3.vbp хранится в каталоге \practicum\VB\Projects\project3\.

Цель: Разработать проект, который позволяет сортировать строковый массив по алфавиту.

Заполнение строкового массива. Как строковые, так и числовые массивы можно заполнять разными методами. Рассмотренный ранее числовой массив был заполнен непосредственно в самой программе, можно заполнять массивы, вводя данные с клавиатуры с использованием функции InputBox, однако строковые массивы чаще всего заполняются путем считывания данных из текстовых файлов.

Такие текстовые файлы должны содержать только коды самих символов и, следовательно, должны создаваться в простейших текстовых редакторах (типа Блокнот).

В таких файлах элементы данных (последовательности символов) отделяются друг от друга с помощью разделителей (чаще всего запятой).

Прежде чем приступить к считыванию данных из текстового файла в строковый массив необходимо открыть файл с помощью оператора Open:

Open Имя_файла For Режим_работы As # Номер_файла

Имя_файла должно содержать путь к файлу и собственно имя файла,

Режим_работы определяет, что файл открыт для считывания данных (Input) или, наоборот, для записи данных в файл (Output), а Номер_файла содержит целое число в интервале от 1 до 511.

Например, чтобы открыть для считывания данных файл alphabet.txt находящийся на CD-ROM (логическое имя которого E:),необходимо ввести следующий код:

Для чтения данных из файла используется функция Input:

После завершения считывания данных файл необходимо закрыть с помощью оператора Close:

Для визуализации заполнения строкового массива терминами удобно использовать управляющий элемент Окно списка (ListBox), который представляет собой упорядоченный список значений.

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

Сортировка массива. В исходном строковом массиве strB термины хранятся в неупорядоченном виде. Сравним последовательно во внутреннем цикле со счетчиком bytI букву «а» алфавита с первыми символами терминов, в случае их совпадения присвоим первому элементу результирующего символьного массива strC это значение. Повторим эту процедуру последовательно для всех букв алфавита с использованием внешнего цикла со счетчиком bytK. Получим упорядоченный строковый массив strC.

Визуализация отсортированного массива. Для визуализации отсортированного массива используем второе окно списка.