Imports System
Public Class Test
Public Shared Sub Main()
Dim a(,) As Integer = {{0, 0}, {1, 2}, {2, 4}, {3, 6}, {4, 8}}
Dim i, j As Integer
' output each array element's value '
For i = 0 To 2
For j = 0 To 1
Console.WriteLine("a[{0},{1}] = {2}", i, j, a(i, j))
Next j
Next i
Console.ReadKey()
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKIERpbSBhKCwpIEFzIEludGVnZXIgPSB7ezAsIDB9LCB7MSwgMn0sIHsyLCA0fSwgezMsIDZ9LCB7NCwgOH19CiAgICAgIERpbSBpLCBqIEFzIEludGVnZXIKICAgICAgJyBvdXRwdXQgZWFjaCBhcnJheSBlbGVtZW50J3MgdmFsdWUgJwogICAgICBGb3IgaSA9IDAgVG8gMgogICAgICAgICAgRm9yIGogPSAwIFRvIDEKICAgICAgICAgICAgICBDb25zb2xlLldyaXRlTGluZSgiYVt7MH0sezF9XSA9IHsyfSIsIGksIGosIGEoaSwgaikpCiAgICAgICAgICBOZXh0IGoKICAgICAgTmV4dCBpCiAgICAgIENvbnNvbGUuUmVhZEtleSgpCgkKCUVuZCBTdWIKRW5kIENsYXNz