VB.NET判斷數組維數具體實現方法探討
VB.NET編程人員在操作數組時，經常會遇到需要對所操作數組進行維數的判斷，那么應該如何才能正確的實現這一功能呢？下面我們就一起來看看VB.NET判斷數組維數的相關操作技巧，以增加大家的編程經驗。
首先，大家應該知道，VB.NET語言特點非常突出：
1.代碼托管。被托管的代碼享受.netframework提供的安全保障和垃圾回收機制，但是這也同時表明，你的程序被框在Framework里面了。API變得不太方便。
2.強大的面向對象特性。現在VB7已經是一個完全的面向對象程序。現在VB7已經支持類的各種特性：繼承，函數的覆蓋，重載，虛擬，隱藏……
3.功能強大，程序界面更標準。
4.程序代碼結構化更強，開發環境舒適體貼。
VB.net常常被人稱為VB7.0即對VB6的升級是不對的，幾乎在.net中的思想已經完全改變了，VB6中是基于事件和對象的思想，而在.net中由于使用了.net框架，并且MS為了將新的編譯環境與潮流接軌，面對對象在.net中尤為突出，用過6的朋友們都很清楚，在6中過程的思想還能運用，但是在.net中過程的思想已經完全的被OOP的思想取代了。
也許這樣說你也不太明白，我用一句話來解釋，就是VB6及其以前的產品是DOS時代到Windows可視化時代的一個轉變，VB.Net是為建造基于因特網的分布式計算的新時代的解決方案提供基礎構造的一個轉變。因此，對于目前的仍比較普遍的win32環境來講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函數來實現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判斷數組維數的相關方法就為大家介紹到這里。
【編輯推薦】
