Private Sub CommandButton5_Click()

a(1, 1) = Val(TextBox1): a(1, 2) = Val(TextBox2.Text)

a(1, 3) = Val(TextBox3.Text): a(1, 4) = Val(TextBox4.Text)

a(2, 1) = Val(TextBox5.Text): a(2, 2) = Val(TextBox6.Text)

a(2, 3) = Val(TextBox7.Text): a(2, 4) = Val(TextBox8.Text)

a(3, 1) = Val(TextBox9.Text): a(3, 2) = Val(TextBox10.Text)

a(3, 3) = Val(TextBox11.Text): a(3, 4) = Val(TextBox12.Text)

b(1) = Val(TextBox20): b(2) = Val(TextBox21): b(3) = Val(TextBox22): b(4) = Val(TextBox23)

For i = 1 To m

c(i) = 0

For k = 1 To n

c(i) = c(i) + a(i, k) * b(k)

Next k

Next i

SUM = 0

For i = 1 To 3

SUM = SUM + c(i)

Next i

MsgBox " Сумарна вартість продукції на всіх складах підприємства становить " & Str(SUM) & " грн.", 0, " Сумарна вартість продукції на всіх складах підприємства"

End Sub

Типи даних, що визначаються користувачем

 

Крім вбудованих типів даних, таких як Integer, Long та інших можливе використання типів даних які задає користувач. Такі типи даних створюються на основі вбудованих так і раніш створених типів даних користувачем. Основне правило яке потрібно знати це те, що коли в об’єкт, елемент управління чи дані вкладений другий об’єкт або елемент управління, дані чи властивість то вони відокремлюються крапкою.

Таким чином доступ до елементів змінної відповідного типу даних, що визначаються користувачем здійснюється аналогічно доступу до властивостей елемента керування, тобто це значення яке одержує елемент і встановлюється після крапки імені змінної. Область видимості таких типів даних буде аналогічно області видимості звичайної змінної.

Щоб визначити призначений для користувача тип даних, використовується ключове слово Type:

 

[Public або Private] Type Ім’я типу

Елемент 1 As Тип

Елемент 2 As Тип

.............................

End Type

 

Наприклад визначимо тип даних Службовець для користувача:

 

(General) (Declaration) (Module)

Type Службовець

Табельний номер As Integer

Прізвище As String *17

Name As String *17

По батькові As String *17

Рік народження As Date

End Type

 

Тепер використаємо визначений тип даних Службовець для змінної Відомості.

(General) (Declaration) (Form)

Dim Відомості As Службовець

Private Sub Command1_Click ()

Відомості. Прізвище = “Косенко”

Відомості. Name = “Ілля”

Відомості. По батькові = “Степанович”

End Sub

 

Змінні однакового типу можна присвоювати не за елементами, а за напрямком. Наприклад:

 

(General) (Declaration) (Module)

Type Службовець

Прізвище As String *17

Name As String *17

End Type

Public Відомості As Службовець, Запис As Службовець

Private Sub Command1_Click ()

Відомості. Прізвище = “Косенко”

Відомості. Name = “Ілля”

Запис = Відомості