Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






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

Занятие 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

 

<== предыдущая лекция | следующая лекция ==>
Реализация проекта. 1. Создайте новый проект. | Реализация проекта. Обработка двумерных массивов




© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.