MyTetra Share
Делитесь знаниями!
Вывести слова, начинающиеся с большой буквы и заканчивающиеся гласной
08.04.2018
14:38
Текстовые метки: Vb, строки
Раздел: VB

Вывести слова, начинающиеся с большой буквы и заканчивающиеся гласной

Задача:

Вывести на экран слова, начинающиеся с большой буквы и заканчиваются гласной

Решение:

На форме TextBox, кнопка и Label


Visual Basic .NET

    Dim Del() As String = {".", "!", ",", ":", ";", " ", ")", "("}

    Dim Ltrs() As String = {"a", "e", "u", "o", "y", "i", "u"}

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim Words() As String = TextBox1.Text.Split(Del, StringSplitOptions.RemoveEmptyEntries)

        Dim Result As New List(Of String)

        For Each Word As String In Words

            If Word(0) = Word(0).ToString.ToUpper And Ltrs.Contains(Word(Word.Length - 1).ToString.ToLower) Then

                Result.Add(Word)

            End If

        Next

        Label1.Text = String.Join(", ", Result.ToArray)

    End Sub

Результат:


Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования