Dim values(,) As String = { {"アメンボ", "イノシシ", "ウマ"}, {"Apple", "Banana", "Cat"} } '3 Dim count1 = values.Length \ values.Rank '2 Dim count2 = values.GetLength(0) '3 Dim count3 = values.GetLength(values.Rank - 1)