Imports System
Imports System.Collections.Generic
Public Class Program
Public Shared Sub Main()
Dim dict As Dictionary(Of String, Integer(,)) = New Dictionary(Of String, Integer(,))()
dict("matrix1") = New Integer(,) {
{1, 2},
{3, 4}}
dict("matrix2") = New Integer(,) {
{5, 6},
{7, 8}}
Dim matrix1 As Integer(,) = dict("matrix1")
Dim matrix2 As Integer(,) = dict("matrix2")
For i As Integer = 0 To matrix1.GetLength(0) - 1
For j As Integer = 0 To matrix1.GetLength(1) - 1
Console.Write(matrix1(i, j) & " ")
Next
Console.WriteLine()
Next
Dim value As Integer = dict("matrix2")(1, 1)
Console.WriteLine("Element at [1,1] in matrix2 = " & value)
End Sub
End Class
' run:
'
' 1 2
' 3 4
' Element at [1,1] in matrix2 = 8
'
