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

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

Private Sub Form_Click()
    Dim a(3) As Integer
    Dim m As Boolean
    m = True
    For i = 0 To 3
        a(i) = 1
    Next i
    For i = 0 To UBound(a)
        If a(i) <> 1 Then
            m = False
            Exit For
        End If
    Next i
    If m = True Then
        Print "全部符合"
    Else
        Print "不全部符合"
    End If
End Sub

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