如何计算异常数组中的值？

Question

我有一个数组具有整数值

Dim array1() As Integer = New Integer() {14,12,0,4,25,0} 

我想计数不在零元素的数目。结果将在上面的数组中为4。

Answer 1

我用了一个Lambda Expression和.FindAll：

Dim array1() As Integer = New Integer() {14, 12, 0, 4, 25, 0} 
    Dim matchedItems() As Integer = Array.FindAll(array1, _ 
             Function(x) x > 0) 
    MsgBox(matchedItems.Count) 

它将找到阵列中的所有项目，其中项目> 0

Answer 2

创建一个整数计数器。 在数组上循环，如果索引值不为零，则将其添加到计数器。

Answer 3

您可以使用Count方法与包括谓词只有非零值。

Dim array1() As Integer = New Integer() {14, 12, 0, 4, 25, 0} 
Dim nonZero As Integer = array1.Count(Function(i) i <> 0) 

这会计算数组中所有值不等于零的成员。