Public Class Form1
    Private Sub Form1_Click(sender As Object,e As EventArgs) Handles Me.Click
        Dim K(3,4) As Integer
        TextBox1.Text = K.Length       '获取整个数组的长度"Length"
        TextBox2.Text = K.GetLength(0) '获取第一维数组的长度"GetLength(0)"
        TextBox3.Text = K.GetLength(1) '获取第二维数组的长度"GetLength(1)"
    End Sub
End Class

运行结果如下：