- 遍历一个2 2 String 型数组.
- 将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