在.NET 中微軟已經(jīng)為我們內(nèi)置了一些方法,我們可以直接使用該方法以快速達到我們的目的
創(chuàng)新互聯(lián)網(wǎng)站建設服務商,為中小企業(yè)提供成都網(wǎng)站制作、網(wǎng)站設計服務,網(wǎng)站設計,成都網(wǎng)站托管等一站式綜合服務型公司,專業(yè)打造企業(yè)形象網(wǎng)站,讓您在眾多競爭對手中脫穎而出創(chuàng)新互聯(lián)。
Module?Module1?
Sub?Main()
Dim?a(3)?As?Int32
a(0)?=?1????
a(1)?=?1
a(2)?=?1
a(3)?=?1
'推薦第一種方法
If?a.Distinct().Count()?=?1?Then
If?a.All(Function(c)?c?=?1)?Then
End?If
End?If
End?Sub
End?Module
第二種方法為LINQ,這是一種高級用法;是.NET 程序員必知必會的東西,如果不懂怎么用可以按F1查看官方文檔
面種我覺快
Dim s As String = "sadkalkdjajjdhsdsa"
Console.WriteLine(s.Split("a").Length - 1)
我還在床上,就只給你思路吧
我是自己寫了個函數(shù),將數(shù)組傳入并返回一個新數(shù)組列表
子函數(shù)中,先將數(shù)組排序sort函數(shù),然后有兩個循環(huán),外循環(huán)從0到Length,變量i,內(nèi)循環(huán)從i到Length,判斷第i個數(shù)是否與包括自身的后續(xù)數(shù)相同,相同就有變量加1,內(nèi)循環(huán)結束條件是找到第一個不同的數(shù),并將外循環(huán)i復植為內(nèi)循環(huán)中第一個不同的數(shù)的下表。。。
這個是思路,如果不能理解再再追加我給你代碼,不過建議自己試試
你看寫這個,和你的要求差不多。。。;oldq=1
有程序的~~~你可以參考下~~~
Dim array1() As String
Dim array2() As Boolean
Dim i As Integer
Dim j As Integer
Dim str1 As String = "a,c,c,c,a,b,c,d,f,eee,eee"
array1 = Split(str1, ",")
str1 = ""
ReDim array2(UBound(array1))
For i = 0 To UBound(array1)
array2(i) = False
Next
For i = 0 To UBound(array1) - 1
If array2(i) = False Then
For j = i + 1 To UBound(array1)
If array1(i) = array1(j) And array2(j) = False Then
array2(j) = True
End If
Next j
End If
Next i
For i = 0 To UBound(array1)
If array2(i) = False Then
str1 = str1 array1(i) ","
End If
Next i
If str1 "" Then
str1 = Strings.Left(str1, Len(str1) - 1)
End If
先把strA排序,
ind = 2
if len(strA) = 0 then return
strB(1) = strA(1)
for each s in strA
if (strA(ind) strA(ind - 1) then
count = 0
strB(ind) = strA(ind)
else
strB(ind) = strA(ind - 1)
end if
ind = ind + 1
next s
vb語法忘了。。。大概是這么個意思吧。。。。 排序N LOG N,后面是線性的N,所以總共是NLOGN
比如數(shù)組a。里面有5個值,其中有3個是重復的?
如果這樣的話,很好辦哦。
新建一個數(shù)組b,然后遍歷要去除的數(shù)組a,
從a中把每一個都取出來,和新建的b里面的去比,如果有相同的,則不放入b,
否則就放入數(shù)組b,直到循環(huán)結束。
當前文章:vb.net數(shù)組重復 vbnet數(shù)組操作
瀏覽路徑:http://muchs.cn/article0/hjcgio.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供搜索引擎優(yōu)化、品牌網(wǎng)站建設、、靜態(tài)網(wǎng)站、網(wǎng)站策劃、品牌網(wǎng)站制作
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉載內(nèi)容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)