Дана строка, состоящая из русских слов, разделенных пробелами - VB
Формулировка задачи:
Здравствуйте=))) Помоги пожалуйста решить задачки, я совсем Visual Basic не понимаю =(((
Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова (разделенные одним пробелом), но расположенные в алфавитном порядке.
Решение задачи: «Дана строка, состоящая из русских слов, разделенных пробелами»
textual
Листинг программы
Sub УбираемЛишниеПробелы()
Dim z As String
Dim s As String
s = InputBox("строка")
n = InStr(1, s, " ")
While n <> 0
s = Mid(s, 1, n - 1) + " " + Mid(s, n + 2, Len(s))
n = InStr(1, s, " ")
Wend
z = s
MsgBox "" & z
End Sub