当一个数组是多维数组。并且每维的上下标都不定的情况下。我们如何去遍历整个数组呢?我不知道大家都有什么奇招妙法。我昨天亲自写了一个程序,用于遍历一个未知的数组。只知道他是一个数组,并且里面存储的是字符串。程序很简单。就是首先获得 数组的 秩,然后获得每维的长度和上下标,以及总长度。 再放到循环中处理。

本程序默认数组中的数据类型为System.String。当然如果我们想把程序写的更加完美的话。在处理数据的时候,可以通过 GetType()方法获得它的数据类型。然后再做不同的处理即可。

代码如下:

Dim 
   a(,,)  
  String 
  NorthSnow 
  中国最大的开发者网络 
  }}, {{ 
  长春轨道客车股份有限公司 
  剑桥商务英语 
  }}, {{ 
  Net_Lover 
  China 
  中华人民共和国 
  Integer 
   j, k, l, m, n  
  Integer 
   qq(,)  
  Integer 
  Integer 
   rr(,)  
  Integer 
  ReDim 
   rr(a.Rank  
  返回数组的总长度, 也可以通过 Length 属性 或者 LongLength  返回 
   a.Rank  
   (a.GetUpperBound(i)  
   a.GetLowerBound( 
            rr(i,  
            rr(i,  
   a.GetUpperBound(i)  
   a.GetLowerBound( 
  ReDim 
  , a.Rank  
  ReDim 
   pp(a.Rank  
   a.Rank  
   rr(i,  
   rr(i,  
   a.GetLowerBound(i)  
   a.GetUpperBound(i)
   rr(i,  
                        qq(k, i)  
   System.Text.StringBuilder
   arrTemp()  
  Integer 
  ReDim 
   arrTemp(a.Rank  
   a.Rank  
                arrTemp(j)  
   qq(i, j)
            str1.Append(a.GetValue(arrTemp))
            str1.Append(vbCrLf)
  MsgBox 
  (str1.ToString)