Разработайте программу, которая во введённом трехзначном целом числе располагает цифры в порядке возрастания - VB

Узнай цену своей работы

Формулировка задачи:

Разработайте программу, которая во введённом трехзначном целом числе располагает цифры в порядке возрастания.

Решение задачи: «Разработайте программу, которая во введённом трехзначном целом числе располагает цифры в порядке возрастания»

textual
Листинг программы
Function SortDigits(n As Long) As Long
    Dim s As String, i As Integer
    For i = 0 To 9
        s = s & String(UBound(Split(CStr(n), CStr(i))), CStr(i))
    Next i
    SortDigits = CLng(s)
End Function

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


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

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

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