Imports System
Imports System.Collections.Generic
Public Module Module1
Public Sub printOnceKey(arr() As Integer)
Dim dict As Dictionary(Of Integer, Integer) = New Dictionary(Of Integer, Integer)
For i As Integer = 0 To arr.Length - 1
dict.Add(arr(i), i)
Next
For Each element As KeyValuePair(Of Integer, Integer) In dict
Console.WriteLine("{0} : {1}", element.Key, element.Value)
Next
End Sub
Public Sub Main()
Dim arr() As Integer = {12, 11, 18, 19, 30, 60}
printOnceKey(arr)
End Sub
End Module
' run:
'
' 12 : 0
' 11 : 1
' 18 : 2
' 19 : 3
' 30 : 4
' 60 : 5
'