Imports System
Class Program
Public Shared Sub Main()
Dim matrix As Integer(,) = {
{1, 2, 3, 10},
{4, 5, 6, 20},
{7, 8, 9, 39}}
Dim rows As Integer = matrix.GetLength(0)
Dim columns As Integer = matrix.GetLength(1)
Console.WriteLine($"Matrix size: {rows} rows x {columns} columns")
' Alternative: Using GetUpperBound (0-based index)
rows = matrix.GetUpperBound(0) + 1 ' Add 1
columns = matrix.GetUpperBound(1) + 1
Console.WriteLine($"Matrix size (using GetUpperBound): {rows} rows x {columns} columns")
Console.WriteLine("total cells: {0}", rows * columns)
End Sub
End Class
' run:
'
' Matrix size: 3 rows x 4 columns
' Matrix size (using GetUpperBound): 3 rows x 4 columns
' total cells: 12
'
