VB.NET編程人員在操作數組時，經常會遇到需要對所操作數組進行維數的判斷，那么應該如何才能正確的實現(xiàn)這一功能呢？下面我們就一起來看看VB.NET判斷數組維數的相關操作技巧，以增加大家的編程經驗。

首先，大家應該知道，VB.NET語言特點非常突出：

1.代碼托管。被托管的代碼享受.netframework提供的安全保障和垃圾回收機制，但是這也同時表明，你的程序被框在Framework里面了。API變得不太方便。

2.強大的面向對象特性。現(xiàn)在VB7已經是一個完全的面向對象程序?，F(xiàn)在VB7已經支持類的各種特性：繼承，函數的覆蓋，重載，虛擬，隱藏……

3.功能強大，程序界面更標準。

4.程序代碼結構化更強，開發(fā)環(huán)境舒適體貼。

VB.net常常被人稱為VB7.0即對VB6的升級是不對的，幾乎在.net中的思想已經完全改變了，VB6中是基于事件和對象的思想，而在.net中由于使用了.net框架，并且MS為了將新的編譯環(huán)境與潮流接軌，面對對象在.net中尤為突出，用過6的朋友們都很清楚，在6中過程的思想還能運用，但是在.net中過程的思想已經完全的被OOP的思想取代了。

也許這樣說你也不太明白，我用一句話來解釋，就是VB6及其以前的產品是DOS時代到Windows可視化時代的一個轉變，VB.Net是為建造基于因特網的分布式計算的新時代的解決方案提供基礎構造的一個轉變。因此，對于目前的仍比較普遍的win32環(huán)境來講VB.net并沒有比VB6有什么進步。

在VB.NET中數姐最大維數是60，所以我們通過錯誤捕捉來處理這個問題，在這里我們用到UBound函數

 
 
 

  
  
  
Public Function ArrayRange(mArray As Variant) As Integer   
  
  
  
Dim i As Integer   
  
  
  
Dim Ret As Integer   
  
  
  
Dim ErrF As Boolean   
  
  
  
ErrF = False   
  
  
  
On Error GoTo ErrHandle   
  
  
  
'判斷代入的參數是否為數組　   
  
  
  
If Not IsArray(mArray) Then   
  
  
  
ArrayRange = -1   
  
  
  
Exit Function   
  
  
  
End If   
  
  
  
'VB.NET中數組最大為60   
  
  
  
For i = 1 To 60  
 
 
 

用UBound函數來實現(xiàn)VB.NET判斷數組維數，并判斷某一維的上界，如果大數組的實際維數時產生超出范圍錯誤，此時我們通過Resume Next 來捕捉錯這個錯誤

 
 
 

  
  
  
Ret = UBound(mArray, i)   
  
  
  
If ErrF Then Exit For   
  
  
  
Next i  
 
 
 

最后返回

 
 
 

  
  
  
ArrayRange = Ret   
  
  
  
Exit Function   
  
  
  
ErrHandle:   
  
  
  
Ret = i - 1   
  
  
  
ErrF = True   
  
  
  
Resume Next   
  
  
  
End Function  
 
 
 

VB.NET判斷數組維數的相關方法就為大家介紹到這里。

當前標題：VB.NET判斷數組維數具體實現(xiàn)方法探討
鏈接分享：http://uogjgqi.cn/article/cosgice.html