Ввести четыре числа: Вывести два наибольших числа. Вывести два из них, расположенных между max и min. Visual Basic - VB

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

Ввести четыре числа: Вывести два наибольших числа. Вывести два из них, расположенных между max и min. Visual Basic

Решение задачи: «Ввести четыре числа: Вывести два наибольших числа. Вывести два из них, расположенных между max и min. Visual Basic»

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

                            Private Sub Form_Load()
Dim a(4), max As Double
Dim i, iMin, iMax As Integer
For i = 0 To 3
a(i) = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ " + Str(i + 1) + " Г·ГЁГ±Г«Г®")
Next
 
iMin = 0
iMax = 0
max = a(0)
For i = 1 To 3
If a(i) > max Then
max = a(i)
iMax = i
Else
iMin = i
End If
Next
 
If iMax > iMin Then
For i = iMin + 1 To iMax - 1
Print Str(a(i))
Next
Else
For i = iMax + 1 To iMin - 1
Print Str(a(i))
Next
End If
End Sub
                        

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

7 голосов , оценка 4.286 из 5

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