Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim stroka As String
        Dim g, s, i, j As Integer
        Dim vowel As String = "aieouy"
        Dim consonant As String = "bcdfghjklmnpqrstvwxz"
 
        stroka = TextBox1.Text
 
        For i = 1 To Len(stroka)
            If InStr(1, consonant, Mid(stroka, i, 1)) Then
                s = s + 1
                Label4.Text = s
            ElseIf InStr(1, vowel, Mid(stroka, i, 1)) Then
                g = g + 1
                Label3.Text = g
            End If
 
            If s - g >= 1 Then
                Label5.Text = "Согласных больше"
            ElseIf s - g <= -1 Then
                Label5.Text = "Гласных больше"
            ElseIf s - g = 0 Then
                Label5.Text = "Одинаково"
            End If
 
        Next i
        For j = 0 To Len(consonant) - 1
            For w = 0 To Len(stroka) - 1
 
                If stroka.Chars(w) = consonant.Chars(j) Then Label6.Text += stroka.Chars(w)
 
            Next
        Next j
        
 
 
    End Sub
End Class

 Dim stroka As String = TextBox1.Text
       
        Dim consonant1() As String = {"b", "c", "d", "f", "g", "h", "j", "k", "l", "m", "n", "p", "q", "r", "s", "t", "v", "w", "x", "z"}
       
        Dim stroka1() As String
        stroka1 = stroka.Split(" ")
 
        Dim a, i, w As Integer
        a = 0
        For Each i In consonant1
            For Each w In stroka1
 
                If w = i Then
                    a += 1
                End If
 
 
            Next
            If a = 1 Then Label6.Text += i
        Next

' текст
 Dim stroka As String = TextBox1.Text
'согласные
 Dim consonant1() As String = {"b", "c", "d", "f", "g", "h", "j", "k", "l", "m", "n", "p", "q", "r", "s", "t", "v", "w", "x", "z"} 


 'выделяем слова из текста 

        Dim stroka1() As String
        stroka1 = stroka.Split(" ")
 
        Dim a As Integer
        a = 0
        For Each i As Char In consonant1 'сравниваем с согласными , i - первая согласная
            For Each w As Char In stroka1 'cравниваем согласную i c словом из текста
 
                If w = i Then ' если в слове (w) есть согласная (i) то
                    a += 1 'к а прибовляем  1
                End If
 
 
            Next
            If a = 1 Then Label6.Text += i ' если а равен 1 то в слове толко 1 согласная , выводим эту согласную.
        Next

 For Each i As Char In consonant1

 For Each w As String In stroka1

If w.Contains(i) = True Then a += 1

   Dim stroka As String = TextBox1.Text
        ' Dim g, s, i, j, u As Integer
       ' Dim vowel As String = "aieouy"
       ' Dim consonant As String = "bcdfghjklmnpqrstvwxz"
        Dim consonant1() As String = {"b", "c", "d", "f", "g", "h", "j", "k", "l", "m", "n", "p", "q", "r", "s", "t", "v", "w", "x", "z"}
        Dim vowel1() As String = {"a", "i", "e", "o", "u", "y"}
       
       
        Dim stroka1() As String
        stroka1 = stroka.Split(" ")

        Dim a As Integer
        a = 0
        For Each i As Char In consonant1
            For Each w As String In stroka1
                If w.Contains(i) = True Then a += 1

                If a = 1 Then Label6.Text += i

            Next

        Next