'給數組賦值
目前成都創新互聯公司已為上1000+的企業提供了網站建設、域名、虛擬主機、網站托管、服務器租用、企業網站設計、順昌網站維護等服務,公司將堅持客戶導向、應用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協力一起成長,共同發展。
dim d(6) as integer
d(1)=11
d(2)=32
d(3)=25
d(4)=45
d(5)=9
d(6)=5
'獲取最大值(采用打擂臺的思路)
dim MyMax as integer
dim i as integer
MyMax = d(1) '假設第1個元素最大
for i = 2 To Ubound(d) '從第2個元素開始到最后一個元素
'如果當前元素比MyMax的值大,就把當前元素保存到MyMax
if d(i) MyMax Then
MyMax = d(i)
end if
next i
msgbox MyMax
在.NET 中微軟已經為我們內置了一些方法,我們可以直接使用該方法以快速達到我們的目的
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查看官方文檔
你的treeview和數組是什么結構呢?這個源碼你改改用吧
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 '定義一個2維數組存放節點內容
Dim node As TreeNode
Dim childnode As TreeNode
Dim i, j As Integer
i = 0
For Each node In TreeView1.Nodes '循環根節點
j = 1
str(i, 0) = node.Text '每個根節點的內容存放在第一列
If UBound(str, 2) node.GetNodeCount(False) Then
ReDim Preserve str(TreeView1.GetNodeCount(False) - 1, node.GetNodeCount(False)) '根據子節點的數目更改數組大小
End If
For Each childnode In node.Nodes '循環子節點
str(i, j) = childnode.Text '存放每個子節點的內容
j = j + 1
Next
i = i + 1
Next
node = Nothing
childnode = Nothing
End Sub
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數組對比 vb語言數組
文章來源:http://vcdvsql.cn/article2/hehdoc.html
成都網站建設公司_創新互聯,為您提供服務器托管、做網站、全網營銷推廣、電子商務、外貿網站建設、動態網站
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯