Задание: В билете на поезд указываются данные пассажира, станция назначения и отправления. Обеспечить ввод этой информации, и выполнить первый этап проверки корректности ввода — проверку отсутствия двух пробелов подряд. Если такое место в тексте найдено, выдать сообщение об ошибке, а остальные буквы не проверять.
Sub Stroka() Dim s As String Dim i As Integer Dim k As Integer s = InputBox("Введите строку") i = 1 k = 0 Do While k = 0 And i < Len(s) If Mid(s, i, 1) = " " And Mid(s, i + 1, 1) = " " Then k = 1 MsgBox ("Некоррекнтный ввод") End If i = i + 1 Loop End Sub