Imports System.Collections.Generic
Public Class GenericTest
Public Shared Sub Main()
Dim education As New Dictionary(Of String, String)
education.Add("BA", "Bachelor of Arts")
education.Add("BS", "Bachelor of Science")
education.Add("MA", "Master of Arts")
education.Add("MS", "Master of Science")
education.Add("MPhil", "Master of Philosophy")
education.Add("PhD", "Doctor of Philosophy")
Console.WriteLine(education.Item("BS"))
Console.WriteLine()
For Each pair As KeyValuePair(Of String, String) In education
Console.WriteLine(pair.Value)
Next
End Sub
End Class
Bachelor of Science
Bachelor of Arts
Bachelor of Science
Master of Arts
Master of Science
Master of Philosophy
Doctor of Philosophy