예외가있는 배열에서 값을 계산하는 방법은 무엇입니까?

Question

I는 정수 값을

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

을 갖는 I가 제로가 아닌 요소의 수를 카운트하고 싶다고 배열을 갖는다. 위의 배열에서 결과는 4입니다.

Answer 1

은 내가 Lambda Expression 및 .FindAll을 사용 0이 아닌 값만.

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

이 값은 0이 아닌 값을 갖는 배열의 모든 구성원을 계산합니다.

Answer 2

정수 카운터를 만듭니다. 배열을 반복하고 인덱스 값이 0이 아닌 경우 카운터에 추가하십시오. > 0

Answer 3

당신은 포함하는 조건으로 Count 방법을 사용할 수있는 항목입니다

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) 

그것은 배열 내에서 모든 항목을 찾을 수 있습니다 :