vb.net数组对比 vb语言数组

VB.NET 数组内容比较大小

'给数组赋值

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

VB.NET 判断一个数组里面的值是否全部相同, 然后再执行下一步

在.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查看官方文档

vb.net 如何遍历treeview 并把子节点的text与string数组比较

你的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

VB.NET 判断数组值是否全部相同

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