vbnewline

Ответ от Ottvett[гуру]
Sub zz3() \'\' Сортировка 3 чисел Dim A As Single, B As Single, C As Single Dim D1 As Single, D2 As Single A = InputBox("Введите 1-е число") B = InputBox("Введите 2-е число") C = InputBox("Введите 3-е число") If A < B Then D1 = A D2 = B Else D1 = B D2 = A End If If C < D1 Then MsgBox C & vbNewLine & D1 & vbNewLine & D2 ElseIf C > D2 Then MsgBox D1 & vbNewLine & D2 & vbNewLine & C Else MsgBox D1 & vbNewLine & C & vbNewLine & D2 End If End Sub