Практическая 10

'***************************************
'* Практическая работа №9
'* Выполнил студент группы 2ПКС Кошкаров И.В
'* Условие.
'* Составить подпрограммы для подчиненных алгоритмов
'* в соотвествии с заданием
'***************************************
Module Module1

    Sub Main()
        Dim s As String
        'Вызов подпрограммы
        Console.WriteLine("Введите значение строки.") ' ввод значения с консоли в переменную
        s = Replacer(s:=Console.ReadLine) ' передача данных в функцию
        Console.WriteLine(s) ' вывод значения на экране
        Console.ReadKey() ' задержка консоли
    End Sub
    Function Replacer(s As String) As String
        Dim Line As Integer = Len(s)
        Dim LineI As Integer = 0
        Dim Current As String
        Dim Max As String = 0
        Dim MaxS As Integer = 0
        Dim MaxI As Integer = 0
        Dim a() As Char = s.ToCharArray() ' Преобразование входящей строки в символьный массив
        Dim i As Integer = 0 ' объявления счетчика для индекса
        Try ' начала поиска ошибок
            While LineI < Line
                While a(i) <> " "
                    Current = String.Concat(Current, a(i))
                    MaxI = MaxI + 1
                    If MaxS < MaxI Then
                        Max = Current
                        MaxS = MaxI
                    End If
                    i = i + 1
                End While
                Current = ""
                MaxI = 0
                i = i + 1
            End While
        Catch ex As Exception ' поиск ошибок
            s = Max
            Return s
        End Try

        s = Max ' в случае отсуствия ошибок отправка правильного результата с преобразование символьного массива в строку
        Return s
    End Function

End Module