Вывод двумерного массива с помощью элемента управления MSFlexGrid

Формирование двумерного массива с помощью диалогового окна InputBox и функции Split

Ввод и вывод двумерных массивов

Двумерные массивы

Next i

End if

Для обработки двумерных массивов чаще всего используют два вложенных друг в друга цикла For…Next, каждый из них позволяет перебирать элементы в массиве по соответствующему индексу строки или столбца. Формат описания двумерного массива в разделе объявления переменных:

Dim Имя_массива ([Тип_индекса, Тип_индекса])
[ As Тип_данных]

Например,

Dim A[1 To 10, 1 To 10] Of Single

Описывается двумерный массив вещественных чисел A, который максимально может состоять из 10 строк и 10 столбцов. Нижняя граница индексов по обоим измерениям равна 1, верхняя равна 10.

Использование функции Split для формирования двумерного массива аналогично одномерному. В приведенном ниже примере каждая строка двумерного массива заполняется с помощью диалогового окна InputBox. Элементы строки массива разделяются пробелом, далее с помощью функции Split строка разделяется по пробелу на массив подстрок. Подстрок будет столько, сколько было введено элементов. Массив полученных подстрок индексируется с нуля!

Значения массива выводятся на PictureBox.

Option Base 1 Dima(30,30) As Single Dim av As String Private Sub Command1_Click() n = Val(Text1.Text) 'Ввод количества строк m = Val(Text2.Text) 'Ввод количества столбцов 'Формирование строки подсказки для пользователя в окне InputBox txt = "Введите", + Text2.Text +"элементов строки" For i = 1 To n 'Цикл по количеству строк x=InputBox(txt, "Ввод данных") 'Вывод окна InputBox av = Split(x, " ") 'Ввод строки, состоящей из n значений 'элементов массива в переменную av For j = 1 To n 'Цикл по количеству элементов в строке a(i,j) = Val(av(j - 1)) 'Заполнение i-ой строки массива Picture1.Print a(i,j) Next j Next i End Sub

В среде VB для вывода массивов используется компонент
MSFlexGrid , представляющий собой таблицу, который подключается с помощью диалогового окна Components (Рис. 7). Таблица может иметь полосы прокрутки, причем заданное число первых строк и столбцов может быть фиксированным и не подвергаться прокрутке. Таким образом, можно задать заголовки столбцов и строк, постоянно присутствующих в окне компонента. Каждой ячейке таблицы может быть поставлен в соответствии некоторый объект.

Рис. 7 – Диалоговое окно Components

Свойства компонента MSFlexGrid:

Свойство	Значение
Rows	Общее количество строк таблицы
Cols	Общее количество столбцов таблицы
Row	Номер строки
Col	Номер столбца
Text	Содержимое ячейки таблицы, адрес которой определяется в свойствах Col и Row. Имеет тип String
ColWidth(j)	Ширина j -ой колонки
RowHeight(i)	Ширина i -ой строки

Пример. Двумерный массив размерностью n * m заполняется случайными числами. Для вывода полученного массива используется элемент управления MSFlexGrid(Рис. 8).

Рис. 8 – Форма с компонентом MSFlexGrid

Программный код приложения:

Dim A(30,30) As Single 'Описание двумерного массива

Dim i As Integer,j As Integer,n As Integer,m As Integer

'Процедура заполнения двумерного массива случайными числами

Private Sub Command1_Click()

Randomize

n = Val(Text1.Text) 'Количество строк

m = Val(Text2.Text) 'Количество столбцов

'Заполнение массива случайными значениями целых чисел

For i = 0 To n – 1

For j = 0 To m – 1

'Присвоение элементу массива случайного числа из отрезка [-10,10]

a(i,j) = Int(21 * Rnd - 10)

Next j

Next i

Дата добавления: 2014-11-16