vb.net如何在數(shù)組中查找數(shù)組?

'''這個(gè)函數(shù)功能就是用來把數(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)建站長期為1000+客戶提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年，關(guān)注不同地域、不同群體，并針對不同對象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺，與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為北川羌族企業(yè)提供專業(yè)的成都網(wǎng)站制作、成都網(wǎng)站建設(shè)，北川羌族網(wǎng)站改版等技術(shù)服務(wù)。擁有十余年豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開發(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開始，不過記得處理下逗號，因?yàn)檫@時(shí)候是字符串。'''如果index小于0說明沒有匹配內(nèi)容End Sub 現(xiàn)在說明下ByteArrayToString為什么要在字符串開頭加個(gè)","，如果不加，可能出現(xiàn)a="1,23,4,5,6,", b="3,4,5,"，結(jié)果導(dǎo)致查詢位置錯(cuò)誤，匹配了a的位置

vb.net 從數(shù)組{5,7,11,13,17,19}中取一個(gè)數(shù)，取三次（可以是相同的數(shù)），三次之和有幾個(gè)值？求代碼！

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種不同的和值。

VB.NET 判斷一個(gè)數(shù)組里面的值是否全部相同, 然后再執(zhí)行下一步

在.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

第二種方法為LINQ，這是一種高級用法；是.NET 程序員必知必會(huì)的東西，如果不懂怎么用可以按F1查看官方文檔

在asp VB.NET怎么查找一維數(shù)組中特定字符串

先遍歷數(shù)組：

for?i?=?0?to?Ubound(數(shù)組)

...

next

再把中間的...替換成：

if?數(shù)組(i)?=?特定的字符?then?msgbox?"找到鳥，當(dāng)前是：數(shù)組"??i