Определить в массиве А(N) и вывести на печать количество элементов, имеющих значение не меньше 10 - VB
Формулировка задачи:
Определить в массиве А(N) и вывести на печать количество элементов,
имеющих значение не меньше 10, и среднее арифметическое таких элементов.
Вывести исходный массив А(N). VBA
Решение задачи: «Определить в массиве А(N) и вывести на печать количество элементов, имеющих значение не меньше 10»
textual
Листинг программы
Private Sub CommandButton1_Click()
Dim i As Integer, A(1 To 10) As Single
For i = 1 To 10
A(i) = Val(InputBox("Введите элемент"))
Label4.Caption = Label4.Caption & " " & A(i)
if A (i) >= 10then
Sum = Sum + A(i)
n = n + 1
endif
Next i
Label5.Caption = Label5.Caption & " " & n
Label10.Caption = Label10.Caption & " " & Sum / n
'Next i
End Sub