Заполнение массива данными и вывод элементов двумерного массива

Занятие 13

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

Объявление статического двумерного массива

Заполнение массива данными и вывод элементов двумерного массива

Упражнения

Объявление статического двумерного массива

Часто бывает необходимо представить таблицы данных в формате строк и столбцов. Для этого используют многомерные массивы.

Доступ к элементам, например, двухмерного массива (матрицы) осуществляется с помощью двух индексов. Первый индекс отвечает за строку, второй – за столбец: а(1, 3), а(3, 4) и т.д., например:

Формат описания двумерного статического массива:

Dim Имя(NomПерв1 To NomПосл1, NomПерв2 To NomПосл2) As Тип

Например,

Dim A(1 To 5, 1 To 10) As Single

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

Размер массивов предпочтительнее задавать с помощью типизированных констант. Например:

Const m As Integer = 5, n As Integer = 10

Dim A(1 to m, 1 To n) As Single

Заполнение массива данными и вывод элементов двумерного массива

Способы заполнения данными двумерного массива

1) С клавиатуры:

For i = 1 To m ' m – количество строк

For j = 1 To n ' n – количество столбцов

A(i, j) = InputBox(" Введите элемент" & Str(i) & " -й строки" _

& Str(j) & " -го столбца", " Ввод данных")

Next j

Next i

Рис. 1

2) С помощью генератора случайных чисел:

Randomize

For i = 1 To m

For j = 1 To n

' заполнение случайными целыми числами из диапазона [0; 9]

A(i, j) = Int(Rnd * 10)

Next j

Next i

3) С помощью вычисления элементов:

For i = 1 To m

For j = 1 To n

A(i, j) = i + j

Next j

Next i

Способы вывода элементов двумерного массива:

1) На форму:

Cls

For i = 1 To m

For j = 1 To n

Print A(i, j);

Next j

Print

Next i

Рис. 2

2) В текстовое поле:

Text1.Text = " "

For i = 1 To m

For j = 1 To n

Text1.Text = Text1.Text + " " + Str(A(i, j))

Next j

Text1.Text = Text1.Text + vbNewLine

Next i

Рис. 3

3) В графическое окно (элемент управления PictureBox):

Picture1.Cls

For i = 1 To m

For j = 1 To n

Picture1.Print A(i, j);

Next j

Picture1.Print

Next i

Рис. 4