Вывод двумерного массива с помощью элемента управления MSFlexGrid
Формирование двумерного массива с помощью диалогового окна InputBox и функции Split
Ввод и вывод двумерных массивов
Двумерные массивы
Next i
Endif
Для обработки двумерных массивов чаще всего используют два вложенных друг в друга цикла 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 'Описание двумерного массива
DimiAs Integer,jAs Integer,nAs 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