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