Page 33 - 6735

наявність ключів та інші. Для запуску прикладу під’єднайте
бібліотеку Microsoft Scripting Runtime.

Dim d As New Scripting.Dictionary 'словник
Dim k As Variant

Public Sub main()
'додати в словник елемент із ключем 1 і значенням "Січень"
d.Add 1, "Січень"
d.Add 2, "Лютий"
d.Add 3, "Березень"
For Each k In d 'для кожного ключа 'k' в словнику 'd'
Debug.Print k, d(k) 'вивести ключ і значення
'Debug.Print k, d.Item(k) 'або так
Next k
d.Remove 2 'видалити елемент із ключем 2
Debug.Print d.Exists(2) 'чи існує елемент із ключем 2
d.Key(3) = 2 'змінити ключ
Debug.Print d.Count 'вивести кількість елементів
Debug.Print d.keys(0), d.items(0) 'перші елементи масивів
ключів і значень
Set d = Nothing
End Sub
1 Січень
2 Лютий
3 Березень
False
2
1 Січень

Функції перетворення типів

У прикладі показано використання функцій для перетворення
даних з одного типу в інший. Зокрема можна перетворити рядок у
число Val("3.51") або число в рядок Str(3.51).

Dim x As Double
33