'''這個(gè)函數(shù)功能就是用來(lái)把數(shù)組轉(zhuǎn)為string的格式'''如byte()={1,2,3,4,5,6}轉(zhuǎn)化后變?yōu)?,1,2,3,4,5,6,"Function ByteArrayToString(bytes() As Byte) As String Dim s As String = "" For i As Integer = 0 To bytes.Length s = Convert.ToString(bytes(i)) "," Next Return “," sEnd Function Sub Search()Dim a as byte()={1,2,3,4,5,6}
創(chuàng)新互聯(lián)建站長(zhǎng)期為1000+客戶提供的網(wǎng)站建設(shè)服務(wù),團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年,關(guān)注不同地域、不同群體,并針對(duì)不同對(duì)象提供差異化的產(chǎn)品和服務(wù);打造開(kāi)放共贏平臺(tái),與合作伙伴共同營(yíng)造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為北川羌族企業(yè)提供專業(yè)的成都網(wǎng)站制作、成都網(wǎng)站建設(shè),北川羌族網(wǎng)站改版等技術(shù)服務(wù)。擁有十余年豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開(kāi)發(fā)。
Dim b as byte()={2,3,4}
Dim astr As String = ByteArrayToString(a)Dim bstr As String = ByteArrayToString(b)Dim index As Integer = astr.IndexOf(bstr) '這個(gè)index就是b數(shù)組在a數(shù)組的位置,下標(biāo)從0開(kāi)始,不過(guò)記得處理下逗號(hào),因?yàn)檫@時(shí)候是字符串。'''如果index小于0說(shuō)明沒(méi)有匹配內(nèi)容End Sub 現(xiàn)在說(shuō)明下ByteArrayToString為什么要在字符串開(kāi)頭加個(gè)",",如果不加,可能出現(xiàn)a="1,23,4,5,6,", b="3,4,5,",結(jié)果導(dǎo)致查詢位置錯(cuò)誤,匹配了a的位置
Sub 和()
Dim Arr, Dic As Object, i, j, k
Set Dic = CreateObject("Scripting.Dictionary")
Arr = Array(5, 7, 11, 13, 17, 19)
For i = 0 To UBound(Arr)
For j = 0 To UBound(Arr)
For k = 0 To UBound(Arr)
Dic(Arr(i) + Arr(j) + Arr(k)) = ""
Next k
Next j
Next i
MsgBox Dic.Count
Set Dic = Nothing
End Sub
結(jié)果為22種不同的和值。
在.NET 中微軟已經(jīng)為我們內(nèi)置了一些方法,我們可以直接使用該方法以快速達(dá)到我們的目的
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
第二種方法為L(zhǎng)INQ,這是一種高級(jí)用法;是.NET 程序員必知必會(huì)的東西,如果不懂怎么用可以按F1查看官方文檔
先遍歷數(shù)組:
for?i?=?0?to?Ubound(數(shù)組)
...
next
再把中間的...替換成:
if?數(shù)組(i)?=?特定的字符?then?msgbox?"找到鳥(niǎo),當(dāng)前是:數(shù)組"??i
本文名稱:vb.net數(shù)組查詢,excel數(shù)組查詢
分享URL:http://jinyejixie.com/article36/dssecsg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站導(dǎo)航、服務(wù)器托管、外貿(mào)網(wǎng)站建設(shè)、營(yíng)銷型網(wǎng)站建設(shè)、企業(yè)網(wǎng)站制作、網(wǎng)頁(yè)設(shè)計(jì)公司
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)