У меня есть массив, содержащий различные числа, и я хочу найти любое число, превышающее 200, и считать каждый раз, когда число было найдено. Я думаю, что подойдет цикл For Each, но я немного потерялся в реализации.
Dim intCount As Integer
For Each Index In _intCholesterolLevel
If Index > 200 Then
intCount += 1
End If
Next
Ваш код правильный, но есть некоторые запутанные части, как указано в комментариях. Цикл «Для каждого» возвращает значение для каждого элемента массива, а НЕ индекс массива. Слово «индекс» относится к положению массива, поэтому это имя не подходит для использования. И вы также должны инициализировать intCount до 0.
Итак, снова ваш код работает, но вот более наглядный пример, который дает правильное значение intCount, равное 3.
Dim intCount As Integer = 0
Dim _intCholesterolLevel() As Integer = {50, 100, 150, 200, 250, 300, 350}
For Each cholesterolValue In _intCholesterolLevel
If cholesterolValue > 200 Then
intCount += 1
End If
Next
