日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間:8:30-17:00
你可能遇到了下面的問(wèn)題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷解決方案
VB.NET判斷數(shù)組維數(shù)具體實(shí)現(xiàn)方法探討

VB.NET編程人員在操作數(shù)組時(shí),經(jīng)常會(huì)遇到需要對(duì)所操作數(shù)組進(jìn)行維數(shù)的判斷,那么應(yīng)該如何才能正確的實(shí)現(xiàn)這一功能呢?下面我們就一起來(lái)看看VB.NET判斷數(shù)組維數(shù)的相關(guān)操作技巧,以增加大家的編程經(jīng)驗(yàn)。

首先,大家應(yīng)該知道,VB.NET語(yǔ)言特點(diǎn)非常突出:

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

2.強(qiáng)大的面向?qū)ο筇匦浴,F(xiàn)在VB7已經(jīng)是一個(gè)完全的面向?qū)ο蟪绦颉,F(xiàn)在VB7已經(jīng)支持類的各種特性:繼承,函數(shù)的覆蓋,重載,虛擬,隱藏……

3.功能強(qiáng)大,程序界面更標(biāo)準(zhǔn)。

4.程序代碼結(jié)構(gòu)化更強(qiáng),開(kāi)發(fā)環(huán)境舒適體貼。

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

也許這樣說(shuō)你也不太明白,我用一句話來(lái)解釋,就是VB6及其以前的產(chǎn)品是DOS時(shí)代到Windows可視化時(shí)代的一個(gè)轉(zhuǎn)變,VB.Net是為建造基于因特網(wǎng)的分布式計(jì)算的新時(shí)代的解決方案提供基礎(chǔ)構(gòu)造的一個(gè)轉(zhuǎn)變。因此,對(duì)于目前的仍比較普遍的win32環(huán)境來(lái)講VB.net并沒(méi)有比VB6有什么進(jìn)步。

在VB.NET中數(shù)姐最大維數(shù)是60,所以我們通過(guò)錯(cuò)誤捕捉來(lái)處理這個(gè)問(wèn)題,在這里我們用到UBound函數(shù)

 
 
 
  1. Public Function ArrayRange(mArray As Variant) As Integer   
  2. Dim i As Integer   
  3. Dim Ret As Integer   
  4. Dim ErrF As Boolean   
  5. ErrF = False   
  6. On Error GoTo ErrHandle   
  7. '判斷代入的參數(shù)是否為數(shù)組    
  8. If Not IsArray(mArray) Then   
  9. ArrayRange = -1   
  10. Exit Function   
  11. End If   
  12. 'VB.NET中數(shù)組最大為60   
  13. For i = 1 To 60  

用UBound函數(shù)來(lái)實(shí)現(xiàn)VB.NET判斷數(shù)組維數(shù),并判斷某一維的上界,如果大數(shù)組的實(shí)際維數(shù)時(shí)產(chǎn)生超出范圍錯(cuò)誤,此時(shí)我們通過(guò)Resume Next 來(lái)捕捉錯(cuò)這個(gè)錯(cuò)誤

 
 
 
  1. Ret = UBound(mArray, i)   
  2. If ErrF Then Exit For   
  3. Next i  

最后返回

 
 
 
  1. ArrayRange = Ret   
  2. Exit Function   
  3. ErrHandle:   
  4. Ret = i - 1   
  5. ErrF = True   
  6. Resume Next   
  7. End Function  

VB.NET判斷數(shù)組維數(shù)的相關(guān)方法就為大家介紹到這里。


名稱欄目:VB.NET判斷數(shù)組維數(shù)具體實(shí)現(xiàn)方法探討
文章轉(zhuǎn)載:http://m.5511xx.com/article/cosgice.html