Расположение чисел a,b,c в порядке убывания - VB
Формулировка задачи:
Даны три числа a,b,c. Расположить их в порядке убывания.
Числа задаются пользователем
Решение задачи: «Расположение чисел a,b,c в порядке убывания»
textual
Листинг программы
Sub Main()
Dim s$(), i&, j&, tmp
s = Split(InputBox("Введите 3 числа, разделенных пробелами", , "5 2 7"))
ReDim Arr(0 To UBound(s))
For i = 0 To UBound(s): Arr(i) = CDbl(s(i)): Next
'сортировка пузырьком
For i = 0 To UBound(s)
For j = 0 To UBound(s) - 1 - i
If Arr(j) < Arr(j + 1) Then
tmp = Arr(j)
Arr(j) = Arr(j + 1)
Arr(j + 1) = tmp
End If
Next j
Next i
MsgBox Join(Arr)
End Sub