Нахождение количества чисел, значение которых больше первого числа - VB

Формулировка задачи:

Создать программу с функциями: 1) ввод 12 чисел 2)нахождение количества чисел , значение которых больше первого числа Первое уже сделано

Private Sub Command1_Click()
 
Dim b(1 To 12) As Integer
Dim i As Byte
MsgBox "Г‚ГўГҐГ¤ГЁГІГҐ Г¤ГўГҐГ*Г*Г¤Г¶Г*ГІГј Г·ГЁГ±ГҐГ«", vbOKOnly + vbInformation
For i = 1 To 12
b(i) = Val(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ " + Str(i) + " Г·ГЁГ±Г«Г®", "Г‚ГўГ®Г¤ Г·ГЁГ±Г«Г*"))
Next
End Sub

Помогите сделать вторую часть

Решение задачи: «Нахождение количества чисел, значение которых больше первого числа»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
 
Dim b(1 To 12) As Integer
Dim i As Byte
MsgBox "Г‚ГўГҐГ¤ГЁГІГҐ Г¤ГўГҐГ*Г*Г¤Г¶Г*ГІГј Г·ГЁГ±ГҐГ«", vbOKOnly + vbInformation
For i = 1 To 12
b(i) = Val(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ " + Str(i) + " Г·ГЁГ±Г«Г®", "Г‚ГўГ®Г¤ Г·ГЁГ±Г«Г*"))
if b(i)>b(1) then n=n+1 
Next
msgbox n,,"количеств чисел, значение которых больше первого числа"
End Sub
                        

Оцени полезность:

8 голосов , оценка 3.625 из 5

Похожие ответы