Ввести четыре числа: Вывести два наибольших числа. Вывести два из них, расположенных между 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д