Imports System
Imports System.Collections.Generic
Class Program
Private Shared Function GetRandomValue(ByVal inputMap As Dictionary(Of Integer, String)) As String
Dim values As List(Of String) = New List(Of String)(inputMap.Values)
Dim random As Random = New Random()
Dim index As Integer = random.Next(values.Count)
Return values(index)
End Function
Public Shared Sub Main()
Dim myMap As Dictionary(Of Integer, String) = New Dictionary(Of Integer, String)() From {
{1, "C++"},
{2, "C"},
{3, "Java"},
{4, "C#"},
{5, "Rust"},
{6, "VB.NET"},
{7, "Python"}
}
Dim randomValue As String = GetRandomValue(myMap)
Console.WriteLine("Random value: " & randomValue)
End Sub
End Class
' run:
'
' Random value: Java
'
