Оператори обробки масивів.

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

Приклад 4

У наведеному нижче прикладі цикл виконується тоді, коли X<5:
X = InputBox ("Значення X")
Do Until X>5
Y=sqr(15-3*Х)
Print X;Y
Loop

Масив – це впорядкований набір даних одного типу, кожен з яких має свій порядковий номер, що називається індексом. Розрізняють статичні і динамічні масиви.. При використанні масивів Visual Basic нумерація елементів масивів за замовчуванням починається з нуля. В математиці елементи масивів нумеруються з одиниці. Оператор Options Base 1 дозволяє задавати індексацію масиву з одиниці. Оператор Options Baseповинен знаходитись в секції (General) (Declarations) контейнеру (форми, модулю, класу). Допустимими значеннями для оператора є тільки 0 або 1.

Оператор оголошення масиву Dim.Синтаксис:

Dim< ім'я > ( N ) As< тип >

Де < ім'я > - довільний ідентифікатор; N - натуральне число, яке вказує на розмір масиву ( кількість елементів).

Для оголошення багатовимірних масивів

Dim< ім'я > (< нижня границя > To < верхня границя >, ….....,< нижня границя > To< верхня границя >)

Приклади:

1. Dim A (5) As Single

2. Dim X (10 to 80, 1 to 25)

Інколи при оголошенні масиву його розмір невідомий. В такому випадку слід оголошувати динамічний масив, що дозволяє його розмір, або розмірність змінювати під час виконання програми. Динамічний масив створюється в два етапи. Спочатку масив визначають в секції (General) (Declarations) контейнеру (форми, модулю) без в казання розміру. Потім за допомогою оператора ReDim встановлюють фактичний розмір масиву. Синтаксис:

ReDim[ Preserve ] < ім'я > ( границі ) [ As тип даних ]

Приклад. ¢(General) (Declarations)

Dim A () As Variant

Private Sub Command 1_Click

ReDim A (50 To 20)

( тіло процедури )

End Sub

Приклад1.Обчислити добуток та суму від'ємних компонентів масиву чисел А (n). Формування масиву виконується за формулою А (і)= . Позначимо добуток – Р і суму – S.

Private Sub Command2_Click()

n = InputBox (“n=”)

Dim A (n) As Variant

Dim p, s, d1, d2 As Variant

s = 0 : p = 1

For i = 1 To n

d1 = InputBox (“d1=”)

d2 = InputBox (“d2=”)

A (i) = d1 - d2 + Cos (d1 + d2)

If A (i) < 0 Then s = s + A (i) : p = p * A (i)

Next I

MsgBox ( “сума ” + Str (s))

MsgBox ( “ добуток ” + Str (p))

End Sub

Приклад 2.Задана матриця А (4,4). В заданій матриці знайти мінімальний елемент по модулю серед елементів головної діагоналі.

А =