Наведемо приклади розв’язку типових завдань

Приклад 1. Знайти максимальний та мінімальний елементи масиву A. Цикл почина- ється з другого елементу для того, щоб економити час та уникнути конструкції amax < A(1), тому що amax = A(1).

amax = A(1): amin = A(1) For i = 2 To N

If amax < A(i) Then amax = A(i) If amin > A(i) Then amin = A(i) Next I

Приклад 2. Відсортувати масив A у порядку зростання.

For k = N To 2 Step -1

For i = 1 To K - 1

If A(i) < A(i + 1) Then B = A(i): A(i) = A(i + 1): A(i + 1) = B Next i

Next k

Приклад 3. Вивести 6 елементів двомірного масиву B(2,3). Почнемо виводити його з другого рядка. У першому буде надпис — Вихідний масив.

Cells(1, 1) = "Вихідний": Cells(1, 2) = " масив" For i = 1 To 2

For j = 1 To 3

Cells(i + 1, j).Value = B(i, j) Next j

Next i

На поточному аркуші Excel. ми бачимо результат дії програми:

2.8. ТЕКСТОВІ ОДНОМІРНІ МАСИВИ

Одномірні масиви іноді розрізняють на вектор-рядок (Vr) та вектор-стовпчик (Vs).

Введення текстового масиву: Dim Vr(4) As String Vr(1) = "№ "

Vr(2) = "Прізвище " Vr(3) = "Стать" Vr(4) = "Стаж " Vr(5) = "Телефон"

Введення текстового масиву з першого рядка Excel. Виведення в 10 рядку у вигляді вектора-рядка та у стовпчику D у вигляді вектора-стовпчика.

Kol = 4

ReDim Vr(Kol) As String

For i = 1 To Kol ‘Ввід текстового масиву з першого рядка аркуша Excel

Vr(i) = Cells(1, i) Next i

For i = 1 To Kol

Cells(10, i) = Vr(i) ‘Вивід у 10 рядку аркуша Excel

Next i

For i = 1 To Kst

Cells(i, 11) = Vr(i) ‘Вивід у стовпчику D (11 –номер стовпця D) аркуша Excel

Next i

Знайти у текстовому масиві „Заголовок таблиці” номер стовпчика „Стать” For i = 1 To Kol

If (Trim(Vr(i))) = "Стать" Then MsgBox (Str(i)) Next i

Якщо ми бажаємо бути незалежними від напису слова (стать, Стать, СТАТЬ), викори-

стаємо функцію UCase яка переводить усі літери у великі.

For i = 1 To Kol

If UCase(Trim(Vr(i))) = "СТАТЬ" Then MsgBox (Str(i)) Next i

Дата добавления: 2014-01-07