十年網(wǎng)站開(kāi)發(fā)經(jīng)驗(yàn) + 多家企業(yè)客戶 + 靠譜的建站團(tuán)隊(duì)
量身定制 + 運(yùn)營(yíng)維護(hù)+專業(yè)推廣+無(wú)憂售后,網(wǎng)站問(wèn)題一站解決
For?i?=?0?To?10?'假設(shè)數(shù)組長(zhǎng)度為10

網(wǎng)站建設(shè)哪家好,找成都創(chuàng)新互聯(lián)!專注于網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開(kāi)發(fā)、小程序設(shè)計(jì)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了昭陽(yáng)免費(fèi)建站歡迎大家使用!
If?a(i)?=?3?Then
For?j?=?i?To?10?-?1
a(j)?=?a(j?+?1)
Next?j
ReDim?Preserve?a(10?-?1)
Exit?For
End?If
Next?i
If?i??10?Then
For?k?=?0?To?10?-?1
Print?a(k)
Next
Else
For?k?=?0?To?10
Print?a(k)
Next
End?If
比如數(shù)組a。里面有5個(gè)值,其中有3個(gè)是重復(fù)的?
如果這樣的話,很好辦哦。
新建一個(gè)數(shù)組b,然后遍歷要去除的數(shù)組a,
從a中把每一個(gè)都取出來(lái),和新建的b里面的去比,如果有相同的,則不放入b,
否則就放入數(shù)組b,直到循環(huán)結(jié)束。
來(lái)給你寫(xiě)了個(gè)函數(shù),拿去用,不謝
Function?RemoveAt(Of?T)(ByVal?arr?As?T(),?ByVal?index?As?Integer)?As?T()
Dim?uBound?=?arr.GetUpperBound(0)
Dim?lBound?=?arr.GetLowerBound(0)
Dim?arrLen?=?uBound?-?lBound
If?index??lBound?OrElse?index??uBound?Then
Throw?New?ArgumentOutOfRangeException(?_
String.Format("Index?must?be?from?{0}?to?{1}.",?lBound,?uBound))
Else
Dim?outArr(arrLen?-?1)?As?T
Array.Copy(arr,?0,?outArr,?0,?index)
Array.Copy(arr,?index?+?1,?outArr,?index,?uBound?-?index)
Return?outArr
End?If
End?Function