Question

How to convert integer array to dictionary in VB.NET

Answer 1

Imports System
Imports System.Linq
 
Public Module Module1
    Public Sub Main()
        Dim arr As Integer() = {1, 2, 3, 4, 5}
 
		Dim dictionary = From n In arr.ToDictionary(Function(k) k, Function(v) If((v Mod 2) = 1, "Odd", "Even"))
                        Select n
 
        For Each dic In dictionary
                Console.WriteLine("{0} - {1}", dic.Key, dic.Value)
        Next
    End Sub
End Module
             
             
             
 
' run
'
' 1 - Odd
' 2 - Even
' 3 - Odd
' 4 - Even
' 5 - Odd
'       

 

70+ SQL courses for beginners and professionals