Глава 4. 'Печать массива для каждого цикла перестановки ForbytK = 1 То 10

bytA(bytN) = bytR

'Печать массива для каждого цикла перестановки For bytK = 1 То 10

txtSort.Text = txtSort.Text + Str(bytA(bytK)) Next bytK Next bytl End Sub

Запустить проект. Щелк­нуть по кнопкам Запол­нить массив и Сортиро­вать. В текстовом поле будет реализована визуа­лизация процесса сорти­ровки числового массива по шагам.

Проект хранится в каталоге _пп опм irSs?³

\textbook\VB\prjVB16\ ои-ним |^

^wmJ Практические задания

^^ ■*.**,/,

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

4.13.5. Двумерные массивы и вложенные циклы

Двумерные массивы можно представить себе как табли­цы, в ячейках которых хранятся значения элементов масси­ва, а индексы элементов массива являются номерами строк и столбцов.

Объявляются двумерные массивы так же, как перемен­ные и одномерные массивы. Например, целочисленный чис­ловой массив, содержащий 9 строк и 9 столбцов, объявляет­ся следующим образом:

Dim bytA(l To 9, 1 То 9) As Byte

С помощью такого массива и двух вложенных циклов легко можно составить программу, реализующую таблицу умножения. Сомножителями будут значения индексов строк и столбцов, а их произведения будут значениями элементов массива.

Основы алгоритмизации и программирования

srjj Проект «Таблица умножения»

Поместить на форму f rml кнопку cmdl и создать для нее событийную процедуру cmdl_Cl ick (), реализующую пе­чать таблицы умножения на форме:

Dim bytA(l To 9, 1 То 9), bytK, bytN As Byte

Sub Commandl_Click()

1 То
1 То
bytN)	=	bytK
bytK;	" *	"; b

For bytK =

bytN

For bytN =

bytN;

bytA(bytK,

bytA(bytK,

frml .Print

bytN)

ли?

Next bytN

13BBF1-1 -1

□ х

Next bytK