14 lines
390 B
Text
14 lines
390 B
Text
Dim As String keys(1 To 5) = {"1", "2", "3", "4", "5"}
|
|
Dim As String values(1 To 5) = {"one", "two", "three", "four", "five"}
|
|
Dim As String hash(Lbound(keys) To Ubound(keys))
|
|
Dim As Integer i, temp
|
|
|
|
For i = Lbound(values) To Ubound(values)
|
|
temp = Val(keys(i))
|
|
hash(temp) = values(i)
|
|
Next i
|
|
|
|
For i = Lbound(hash) To Ubound(hash)
|
|
Print keys(i); " "; hash(i)'; " "; i
|
|
Next i
|
|
Sleep
|