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

1. Елемент керування текстове поле, його властивості.

2. Елемент керування командна кнопка, його властивості і події.

3. Елементи керування список і список, що розкривається, їхнє призначення, властивості і події, що з ними зв'язані.

4. Елемент керування перемикач, його властивості і події, що з ним зв'язані. Об'єднання перемикачів у групу.

Лабораторна робота № 6. Тема роботи: Одновимірні масиви

Мета роботи: одержання практичних навичок програмування і розв’язання задач обробки одновимірних масивів.

6.1 Теоретичні відомості

Масив це набір пронумерованих об’єктів, що мають одне і те саме базове ім’я і для доступу до об’єкту застосовується його номер (індекс). Масиви бувають статичні та динамічні.

О’ява статичного масиву:

Dim mas(20) As Integer

mas – масив, який складається з двадцяти елементів типу Integer. Першим елементом буде mas(1), другим – mas(2) т.д.

О’ява динамічного масиву:

Dim mas() As Integer

n=Inputbox(“Введіть розмір масиву”)

ReDim mas(n)

Приклад 6.1.На листі Excel в діапазоні А1:А10 знаходяться числа. Сформувати з них масив та знайти максимальний елемент.

Sub Максимальний_у_масиві( )

Dim x() As Integer, n As integer

Dim max as Single, i as Integer

n=10

ReDim x(n)

‘формування масиву

For i =1 To n

X(i)= Worksheets(“Лист1”) . Cells(i,1). Value

Next i

‘знаходження максимального елементу у масиві

max=x(1)

For i=2 To n

If x(i)>max Then max=x(i)

Next i

Worksheets(“Лист1”) . Cells(11,1). Value=”max=”

Worksheets(“Лист1”) . Cells(11,2). Value=max

End Sub

Приклад 6.2 Ввести з клавіатури елементи масиву роз­міром N та обчислити їх суму.

Створимо форму та розмістимо на ній потрібні елементи управ­ління (див. рис. 6.1).

Рисунок 6.1 – Форма для приклада 6.2

Надамо елементам управління властивості згідно таблиці 6.1.

Таблиця 6.1 – Значення властивостей елементів управління

Тип елемента управління	Ім’я елемента управління	Назва властивості	Значення властивості
Форма	UserForm1	Caption	Робота з масивами
Напис	Label 1	Caption	n=
Напис	Label 2	Caption	Масив A
Напис	Label 3	Caption	Сума=
Командна кнопка	CmdVvod	Caption	Введення масиву
Командна кнопка	CmdRun	Caption	Обчислення
Текстове поле	txta	ScrollBars	1
Текстове поле	txtn

Програмний код для кнопки cmdVvod(подія Click)

Dim n As Integer, i As Integer, A() As Integer

‘Опис глобальних змінних в області General

-------------------------------------------------------------

Private Sub CmdVvod_Click()

txta.Text = ""

n = txtn.Text

ReDim A(n) As Integer

For i = 1 To n

A(i) = InputBox("Ввести a(" & i & ")=")

txta.Text = txta.Text & A(i) & " "

Next i

End Sub

Програмний код для кнопки cmdRun (подія Click)

Private Sub CmdRun _Click()

Dim s As Integer

s = 0

For i = 1 To n

s = s + A(i)

Next i

txts.Text = s

End Sub

Результати роботи програми зображені на рис. 6.2.

Рисунок 6.2 –Результат роботи приклада 6.2