VB.NET 數(shù)組內(nèi)容比較大小

'給數(shù)組賦值

目前成都創(chuàng)新互聯(lián)公司已為上1000+的企業(yè)提供了網(wǎng)站建設(shè)、域名、虛擬主機(jī)、網(wǎng)站托管、服務(wù)器租用、企業(yè)網(wǎng)站設(shè)計(jì)、順昌網(wǎng)站維護(hù)等服務(wù)，公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長，共同發(fā)展。

dim d(6) as integer

d(1)=11

d(2)=32

d(3)=25

d(4)=45

d(5)=9

d(6)=5

'獲取最大值（采用打擂臺(tái)的思路）

dim MyMax as integer

dim i as integer

MyMax = d(1) '假設(shè)第1個(gè)元素最大

for i = 2 To Ubound(d) '從第2個(gè)元素開始到最后一個(gè)元素

'如果當(dāng)前元素比MyMax的值大，就把當(dāng)前元素保存到MyMax

if d(i) MyMax Then

MyMax = d(i)

end if

next i

msgbox MyMax

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，這是一種高級(jí)用法；是.NET 程序員必知必會(huì)的東西，如果不懂怎么用可以按F1查看官方文檔

vb.net 如何遍歷treeview 并把子節(jié)點(diǎn)的text與string數(shù)組比較

你的treeview和數(shù)組是什么結(jié)構(gòu)呢？這個(gè)源碼你改改用吧

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Dim str(TreeView1.GetNodeCount(False) - 1, 0) As String '定義一個(gè)2維數(shù)組存放節(jié)點(diǎn)內(nèi)容

Dim node As TreeNode

Dim childnode As TreeNode

Dim i, j As Integer

i = 0

For Each node In TreeView1.Nodes '循環(huán)根節(jié)點(diǎn)

j = 1

str(i, 0) = node.Text '每個(gè)根節(jié)點(diǎn)的內(nèi)容存放在第一列

If UBound(str, 2) node.GetNodeCount(False) Then

ReDim Preserve str(TreeView1.GetNodeCount(False) - 1, node.GetNodeCount(False)) '根據(jù)子節(jié)點(diǎn)的數(shù)目更改數(shù)組大小

End If

For Each childnode In node.Nodes '循環(huán)子節(jié)點(diǎn)

str(i, j) = childnode.Text '存放每個(gè)子節(jié)點(diǎn)的內(nèi)容

j = j + 1

Next

i = i + 1

Next

node = Nothing

childnode = Nothing

End Sub

VB.NET 判斷數(shù)組值是否全部相同

dim a(3)

a(0) = 1,a(1)=1,a(2)=1,a(3)=0

for i = 0 to 3

if a(i)a(0) then msgbox "有不同"

next

新聞名稱：vb.net數(shù)組對(duì)比 vb語言數(shù)組
文章來源：http://jinyejixie.com/article2/hehdoc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供服務(wù)器托管、做網(wǎng)站、全網(wǎng)營銷推廣、電子商務(wù)、外貿(mào)網(wǎng)站建設(shè)、動(dòng)態(tài)網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)