Расположение чисел 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

12   голосов , оценка 4.417 из 5
Похожие ответы