Question

How to add array of integers to a dictionary in VB.NET

Answer 1

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
'

 

70+ SQL courses for beginners and professionals