Переставить числа в порядке их увеличения - VB

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

Помогите сделать !Дано натуральное трехзначное число. Переставить числа в порядке их увеличения..Создание пользовательских функций для обработки числовой информации.visual basic У меня получилось как -то так .

Function gg_12(g As Integer) As Integer
If n1 > n2 And n1 > n3 Then nmax = n1
If n2 > n1 And n2 > n3 Then nmax = n2
If n3 > n2 And n3 > n1 Then nmax = n3
 
If n1 < n2 And n1 < n3 Then nmin = n1
If n2 < n1 And n2 < n3 Then nmin = n2
If n3 < n2 And n3 < n1 Then nmin = n3

дальше незнаю.

Решение задачи: «Переставить числа в порядке их увеличения»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Text1 = swap(CInt(Text1))
End Sub
 
Function swap(n As String)
n1 = CInt(Mid(n, 1, 1))
If Len(n) > 1 Then
    n2 = CInt(Mid(n, 2, 1))
Else
    n2 = 0
End If
If Len(n) > 2 Then
    n3 = CInt(Mid(n, 3, 1))
Else
    n3 = 0
End If
 
If n1 > n2 Then
    t = n1
    n1 = n2
    n2 = t
End If
If n2 > n3 Then
    t = n2
    n2 = n3
    n3 = t
End If
If n1 > n2 Then
    t = n1
    n1 = n2
    n2 = t
End If
 
swap = CInt(n1 & n2 & n3)
End Function
                        

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

10 голосов , оценка 4.4 из 5

Похожие ответы