Билеты и прочее

Билет 1, 11, 21

Public Class Form1
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim Mas_str() As String
        Dim nS, s As Integer
        Lst_str.Items.Clear()
        Lst_new.Items.Clear()
        VVOD_mas(Mas_str, nS, 20)
        VIVOD_mas(Mas_str, nS, Lst_str)
        s = SUMMA(Mas_str, nS)
        TextBox1.Text = Str(s)
        SORTIROVKA(Mas_str, nS)
        VIVOD_mas(Mas_str, nS, Lst_new)
    End Sub

    Private Sub VVOD_mas(ByRef X() As String, ByRef n As Integer, ByVal predel As Integer)
        Dim i As Integer
        Do
            n = Val(InputBox("n= "))
        Loop Until n > 0 And n <= 20
        ReDim X(n - 1)
        For i = 0 To n - 1
            X(i) = InputBox("Введите строку")
        Next
    End Sub

    Private Sub VIVOD_mas(ByRef X() As String, ByVal n As Integer, ByRef lst As ListBox)
        Dim i As Integer
        lst.Items.Clear()
        For i = 0 To n - 1
            lst.Items.Add(X(i))
        Next
    End Sub

    Private Function IDEAL(ByVal s As String) As String
        Do While InStr(s, "  ") <> 0
            s = Trim(s)
            s = Replace(s, "  ", " ")
        Loop
        Do While InStr(s, "..") <> 0
            s = Trim(s)
            s = Replace(s, "..", ".")
        Loop
        Do While InStr(s, ",,") <> 0
            s = Trim(s)
            s = Replace(s, ",,", ",")
        Loop
        Do While InStr(s, " .") <> 0
            s = Trim(s)
            s = Replace(s, " .", ".")
        Loop
        IDEAL = s
    End Function

    Private Function SUMMA(ByVal X() As String, ByVal n As Integer) As Integer
        Dim i, j, s As Integer
        Dim mas_slov() As String ' Исправлено: объявляем массив mas_slov
        s = 0
        For i = 0 To n - 1
            X(i) = IDEAL(X(i))
            mas_slov = Strings.Split(X(i), " ") ' Исправлено: добавляем разделитель для Split
            For j = 0 To UBound(mas_slov)
                If Strings.Trim(Str(Val(mas_slov(j)))) = mas_slov(j) Then
                    s = s + Val(mas_slov(j))
                End If
            Next
        Next
        SUMMA = s
    End Function

    Private Sub SORTIROVKA(ByRef X() As String, ByVal n As Integer)
        Dim i, j As Integer
        Dim mas_slov() As String ' Исправлено: объявляем массив mas_slov
        Dim buf As String
        Dim flag As Boolean
        For i = 0 To n - 1
            X(i) = IDEAL(X(i))
            mas_slov = Strings.Split(X(i), " ") ' Исправлено: добавляем разделитель для Split
            Do
                flag = True
                For j = 0 To UBound(mas_slov) - 1
                    If mas_slov(j) > mas_slov(j + 1) Then
                        buf = mas_slov(j)
                        mas_slov(j) = mas_slov(j + 1)
                        mas_slov(j + 1) = buf
                        flag = False
                    End If
                Next
            Loop Until flag = True
            X(i) = Strings.Join(mas_slov, " ") ' Исправлено: добавляем разделитель для Join
        Next
    End Sub
End Class



Билет 2, 12, 22

Public Class Form1
	Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Mas_str(), Mas_new() As String
        Dim nS, nN, i As Integer
        Lst_str.Items.Clear()
        Lst_new.Items.Clear()
        VVOD_mas(Mas_str, nS, 20)
        VIVOD_mas(Mas_str, nS, Lst_str)
        YDAL(Mas_str, nS, Mas_new, nN)
        For i = 0 To nN - 1
            Mas_new(i) = PREOBR_P(Mas_new(i))
        Next
        VIVOD_mas(Mas_new, nN, Lst_new)
    End Sub

    Private Sub VVOD_mas(ByRef X() As String, ByRef n As Integer, ByVal predel As Integer)
        Dim i As Integer
        Do
            n = Val(InputBox("n= "))
        Loop Until n > 0 And n <= 20
        ReDim X(n - 1)
        For i = 0 To n - 1
            X(i) = InputBox("Введите строку")
        Next
    End Sub

    Private Sub VIVOD_mas(ByRef X() As String, ByVal n As Integer, ByRef lst As ListBox)
        Dim i As Integer
        lst.Items.Clear()
        For i = 0 To n - 1
            lst.Items.Add(X(i))
        Next
    End Sub

    Private Function IDEAL(ByVal s As String) As String
        Do While InStr(s, "  ") <> 0
            s = Trim(s)
            s = Replace(s, "  ", " ")
        Loop
        Do While InStr(s, "..") <> 0
            s = Trim(s)
            s = Replace(s, "..", ".")
        Loop
        Do While InStr(s, ",,") <> 0
            s = Trim(s)
            s = Replace(s, ",,", ",")
        Loop
        Do While InStr(s, " .") <> 0
            s = Trim(s)
            s = Replace(s, " .", ".")
        Loop
        IDEAL = s
    End Function

    Private Sub YDAL(ByVal x() As String, ByVal n As Integer, ByRef Y() As String, ByRef k As Integer)
        Dim i As Integer
        k = 0
        For i = 0 To n - 1
            x(i) = IDEAL(x(i))
            If x(i) <> "" Then
                k = k + 1
                ReDim Preserve Y(k - 1)
                Y(k - 1) = x(i)
            End If
        Next

    End Sub

    Private Function PREOBR_P(ByRef s As String) As String
        Dim i As Integer
        Dim mas_slov() As String
        mas_slov = Strings.Split(s)
        For i = 0 To UBound(mas_slov)
            If Strings.StrReverse(mas_slov(i)) = mas_slov(i) Then
                mas_slov(i) = Strings.StrConv(mas_slov(i), VbStrConv.ProperCase)
            End If
        Next
        s = Strings.Join(mas_slov)
        PREOBR_P = s
    End Function
End Class


Билет 3, 13, 23
Public Class Form1
	Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Mas_str() As String
        Dim nS, n_max As Integer
        Lst_str.Items.Clear()
        VVOD_mas(Mas_str, nS, 20)
        VIVOD_mas(Mas_str, nS, Lst_str)
        n_max = SRAVNENIE(Mas_str, nS)
        TextBox1.Text = Str(n_max)
    End Sub

    Private Sub VVOD_mas(ByRef X() As String, ByRef n As Integer, ByVal predel As Integer)
        Dim i As Integer
        Do
            n = Val(InputBox("n= "))
        Loop Until n > 0 And n <= 20
        ReDim X(n - 1)
        For i = 0 To n - 1
            X(i) = InputBox("Введите строку")
        Next
    End Sub

    Private Sub VIVOD_mas(ByRef X() As String, ByVal n As Integer, ByRef lst As ListBox)
        Dim i As Integer
        lst.Items.Clear()
        For i = 0 To n - 1
            lst.Items.Add(X(i))
        Next
    End Sub

    Private Function IDEAL(ByVal s As String) As String
        Do While InStr(s, "  ") <> 0
            s = Trim(s)
            s = Replace(s, "  ", " ")
        Loop
        Do While InStr(s, "..") <> 0
            s = Trim(s)
            s = Replace(s, "..", ".")
        Loop
        Do While InStr(s, ",,") <> 0
            s = Trim(s)
            s = Replace(s, ",,", ",")
        Loop
        Do While InStr(s, " .") <> 0
            s = Trim(s)
            s = Replace(s, " .", ".")
        Loop
        IDEAL = s
    End Function

    Private Function KOLVO(ByVal s As String) As Integer
        Dim i, k As Integer
        k = 0
        s = IDEAL(s)
        For i = 1 To Len(s)
            If Strings.Mid(s, i, 1) = "." Then
                k = k + 1
            End If
        Next
        KOLVO = k
    End Function

    Private Function SRAVNENIE(ByVal X() As String, ByVal n As Integer) As Integer
        Dim i, max, imax As Integer
        max = KOLVO(X(0))
        imax = 0
        For i = 1 To n - 1
            If KOLVO(X(i)) > max Then
                max = KOLVO(X(i))
                imax = i
            End If
        Next
        SRAVNENIE = imax
    End Function
End Class

Билет 4, 14, 24
Public Class Form1
	Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
		Dim st, max, new_mas() As String
		Dim k As Integer
		ListBox1.Items.Clear()
		st = InputBox("Ввод строки")
		TextBox1.Text = st
		max = THELONGEST(st)
		TextBox2.Text = max
		PA1IN(st, new_mas, k)
		VIVOD_mas(new_mas, k, ListBox1)
	End Sub
    Private Function IDEAL(ByVal s As String) As String
        Do While InStr(s, "  ") <> 0
            s = Trim(s)
            s = Replace(s, "  ", " ")
        Loop
        Do While InStr(s, "..") <> 0
            s = Trim(s)
            s = Replace(s, "..", ".")
        Loop
        Do While InStr(s, ",,") <> 0
            s = Trim(s)
            s = Replace(s, ",,", ",")
        Loop
        Do While InStr(s, " .") <> 0
            s = Trim(s)
            s = Replace(s, " .", ".")
        Loop
        IDEAL = s
    End Function
    Private Function THELONGEST(ByVal s As String) As String
        Dim mas_slov(), max As String
        Dim i, ch As Integer
        s = IDEAL(s)
        mas_slov = Strings.Split(s)
        max = mas_slov(0)
        ch = Strings.Len(max)
        For i = 1 To UBound(mas_slov)
            If Strings.Len(mas_slov(i)) > ch Then
                max = mas_slov(i)
                ch = Strings.Len(mas_slov(i))
            End If
        Next
        THELONGEST = max
    End Function
    Private Sub PA1IN(ByVal s As String, ByRef Y() As String, ByRef k As Integer)
        Dim i As Integer
        Dim X() As String
        k = 0
        s = IDEAL(s)
        X = Strings.Split(s)
        For i = 0 To UBound(X)
            If Strings.StrReverse(X(i)) = X(i) Then
                k = k + 1
                ReDim Preserve Y(k - 1)
                Y(k - 1) = X(i)
            End If
        Next
    End Sub
    Private Sub VIVOD_mas(ByRef X() As String, ByVal n As Integer, ByRef lst As ListBox)
        Dim i As Integer
        lst.Items.Clear()
        For i = 0 To n - 1
            lst.Items.Add(X(i))
        Next
    End Sub
End Class



Билет 5, 15, 25
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Mas_str() As String
        Dim nS As Integer
        Lst_str.Items.Clear()
        Lst_new.Items.Clear()
        VVOD_mas(Mas_str, nS, 20)
        VIVOD_mas(Mas_str, nS, Lst_str)
        YDAL(Mas_str, nS)
        VIVOD_mas(Mas_str, nS, Lst_new)
    End Sub
    Private Function IDEAL(ByVal s As String) As String
        Do While InStr(s, "  ") <> 0
            s = Trim(s)
            s = Replace(s, "  ", " ")
        Loop
        Do While InStr(s, "..") <> 0
            s = Trim(s)
            s = Replace(s, "..", ".")
        Loop
        Do While InStr(s, ",,") <> 0
            s = Trim(s)
            s = Replace(s, ",,", ",")
        Loop
        Do While InStr(s, " .") <> 0
            s = Trim(s)
            s = Replace(s, " .", ".")
        Loop
        IDEAL = s
    End Function
    Private Sub VVOD_mas(ByRef X() As String, ByRef n As Integer, ByVal predel As Integer)
        Dim i As Integer
        Do
            n = Val(InputBox("n= "))
        Loop Until n > 0 And n <= 20
        ReDim X(n - 1)
        For i = 0 To n - 1
            X(i) = InputBox("Введите строку")
        Next
    End Sub
    Private Sub VIVOD_mas(ByRef X() As String, ByVal n As Integer, ByRef lst As ListBox)
        Dim i As Integer
        lst.Items.Clear()
        For i = 0 To n - 1
            lst.Items.Add(X(i))
        Next
    End Sub
    Private Function PROIZVEDENIE(ByVal s As String) As Integer
        Dim Mas_slov() As String
        Dim i, p As Integer
        p = 1
        S = IDEAL(s)
        Mas_slov = Strings.Split(s)
        For i = 0 To UBound(Mas_slov)
            If Strings.Trim(Str(Val(Mas_slov(i)))) = Mas_slov(i) Then
                p = p * Val(Mas_slov)
            End If
        Next
        PROIZVEDENIE = P
    End Function
    Private Sub YDAL(ByVal x() As String, ByVal n As Integer)
        Dim i, j As Integer
        Dim mas_slov() As String
        For i = 0 To n - 1
            x(i) = IDEAL(x(i))
            mas_slov = Strings.Split(x(i))
            For j = 0 To UBound(mas_slov)
                If Strings.Trim(Str(Val(mas_slov(j)))) = mas_slov(j) Then
                    mas_slov(j) = ""
                End If
            Next
            x(i) = Strings.Join(mas_slov) + Str(PROIZVEDENIE(x(i)))
        Next

    End Sub
End Class



Билет 6, 16, 26
Билет 7, 17, 27
Билет 8, 18, 28
Билет 9, 19
Билет 10, 20



Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim st, max, new_mas(), letter As String
        Dim k As Integer
        ListBox1.Items.Clear()
        letter = InputBox("Введите букву")
        st = InputBox("Ввод строки")
        TextBox1.Text = st
        max = THELONGEST(st)
        TextBox2.Text = max
        PA1IN(st, new_mas, k)
        VIVOD_mas(new_mas, k, ListBox1)
        UDAL(st, letter, new_mas, k)
        VIVOD_mas(new_mas, k, ListBox2)
    End Sub
    Private Function IDEAL(ByVal s As String) As String
        Do While InStr(s, "  ") <> 0
            s = Trim(s)
            s = Replace(s, "  ", " ")
        Loop
        IDEAL = s
    End Function
    Private Function THELONGEST(ByVal s As String) As String
        Dim mas_slov(), max As String
        Dim i, ch As Integer
        s = IDEAL(s)
        mas_slov = Strings.Split(s)
        max = mas_slov(0)
        ch = Strings.Len(max)
        For i = 1 To UBound(mas_slov)
            If Strings.Len(mas_slov(i)) > ch Then
                max = mas_slov(i)
                ch = Strings.Len(mas_slov(i))
            End If
        Next
        THELONGEST = max
    End Function
    Private Sub PA1IN(ByVal s As String, ByRef Y() As String, ByRef k As Integer)
        Dim i As Integer
        Dim X() As String
        k = 0
        s = IDEAL(s)
        X = Strings.Split(s)
        For i = 0 To UBound(X)
            If Strings.StrReverse(X(i)) = X(i) Then
                k = k + 1
                ReDim Preserve Y(k - 1)
                Y(k - 1) = X(i)
            End If
        Next
    End Sub
    Private Sub UDAL(ByVal s As String, ByVal letter As String, ByRef Y() As String, ByRef k As Integer)
        Dim i As Integer
        Dim X() As String
        k = 0
        s = IDEAL(s)
        X = Strings.Split(s)
        For i = 0 To UBound(X)
            If Strings.Left(X(i), 1) <> letter Then
                k = k + 1
                ReDim Preserve Y(k - 1)
                Y(k - 1) = X(i)
            End If
        Next
    End Sub
    Private Sub VIVOD_mas(ByRef X() As String, ByVal n As Integer, ByRef lst As ListBox)
        Dim i As Integer
        lst.Items.Clear()
        For i = 0 To n - 1
            lst.Items.Add(X(i))
        Next
    End Sub
End Class