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

@Alisher2222 · Регистрация: 18.05.2013

@antonboom · 19.05.2013, 21:19

Вроде без ошибок:

Visual Basic

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

@Alisher2222 1 / 1 / 0 Регистрация: 18.05.2013 Сообщений: 93 Записей в блоге: 1
		1
	Ввести четыре числа: Вывести два наибольших числа. Вывести два из них, расположенных между max и min. Visual Basic 19.05.2013, 17:24. Показов 2466. Ответов 1 Метки нет (Все метки) Ввести четыре числа: Вывести два наибольших числа. Вывести два из них, расположенных между max и min. Visual Basic __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

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

Решение