Код: Выделить всё
Private Sub SumButton1_Click()
Const n% = 10
Dim Sum As Single
Dim J(1 To n%) As Single
Debug.Print " Заданный массив J"
For i% = 1 To n%
Title$ = "Введите элемент массива J"
Prt$ = "элемент J(" & i% & ")"
J(i%) = Val(InputBox(Prt$, Title$))
Debug.Print J(i%); " ";
Next i%
Debug.Print
Debug.Print " Массив по возрастанию"
For i% = 1 To 5
If arr(J) < Min Then Debug.Print J(i%); " ";
Next i%
Debug.Print
Debug.Print " Массив по убыванию"
For i% = 5 To 10
If arr(J) < Max Then Debug.Print J(i%); " ";
Next i%
Debug.Print
End Sub