RosettaCodeData/Task/Hash-from-two-arrays/Visual-Basic/hash-from-two-arrays.vb

10 lines
265 B
VB.net

Dim dict As New Collection
os = Array("Windows", "Linux", "MacOS")
owner = Array("Microsoft", "Linus Torvalds", "Apple")
For n = 0 To 2
dict.Add owner(n), os(n)
Next
Debug.Print dict.Item("Linux")
Debug.Print dict.Item("MacOS")
Debug.Print dict.Item("Windows")