РОБОТА З ДВОВИМІРНИМИ МАСИВАМИ

Date: 2015-10-07; view: 389.

ПРАКТИЧНА РОБОТА 13

1. МЕТА РОБОТИ

Навчитись працювати з двовимірними масивами.

2. ЗАВДАННЯ І ПОРЯДОК ВИКОНАННЯ

2.1. Ознайомитися з наведеними прикладами.

2.2. Виконати задачі, для самостійної роботи.

Приклад. Ввести двовимірний масив знайти максимальний елемент.

Код стандартного модуля

Option Base 1

Public C(2, 2) As Variant

Public i, j As Integer

Вводимо елементи масиву

Private Sub Command1_Click()

Cls

c1$ = "Введіть число"

For i = 1 To 2

For j = 1 To 2

t$ = "масив С" + Str(i) + " " + Str(j)

C(i, j) = InputBox(c1$, t$)

Next j

Next i

End Sub

Роздруковуємо елементи масиву

Private Sub Command2_Click()

For i = 1 To 2

For j = 1 To 2

t$ = "масив С" + Str(i) + " " + Str(j)

Print "C[" + Str(i) + ", " + Str(j) + "]="; C(i, j)

Next j

Print

Next i

End Sub

Знаходимо максимальний елемент

Private Sub Command3_Click()

Max = C(1, 1)

For i = 1 To 2

For j = 1 To 2

If C(i, j) > Max Then

Max = C(i, j)

End If

Next j

Next i

Print "max=", Max

End Sub

Контрольні запитання.

1. Що таке двовимірні масиви?

2. Як описуються двовимірні масиви?

Завдання для самостійного розв'язку.

1. Знайти індекси мінімального елемента масиву.

2. Знайти індекси максимального елемента масиву.

3. Знайти суму елементів масиву.

4. Обчислити суму діагональних елементів масиву.