VB.NET 编历二维字符型数组

1. 遍历一个2  2 String 型数组.
2. 将2  2 String 型数组都赋值为 "c" .

代码如下:

Module Module1
    '规则数组遍历
    Sub ForEachArray(arrayInfo As Array)
        'Dim tRank As Integer
        Dim tLength As Integer
        Dim row As Integer
        Dim col As Integer
        'tRank = arrayInfo.Rank
        '元素总数
        tLength = arrayInfo.Length
        '行数
        row = arrayInfo.GetLength(0)
        '列数
        col = arrayInfo.Length / row
        For i = 0 To row - 1
            For j = 0 To col - 1
                arrayInfo(i, j) = "c"
            Next j
        Next i
    End Sub


    Sub Main()
        Dim arrayInfo(2, 2) As Str