Cümle İçerisindeki Kelimeleri Saymak

Merhaba arkadaşlar bu makalemizde InputBox a girilmiş olan cümlenin içerisinde kaç adet kelime olduğunu öğreneceğiz.

Screenshot

Şekil 1

Şekil 2

Form1.vb

Public Class Form1

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

        Dim str As String

        Dim i As Integer

        str = InputBox("Kelime giriniz!")

        Dim kelimeSay As Integer

        kelimeSay = 1

        For i = 0 To str.Length - 1

            If str.Chars(i) = " " Then

                kelimeSay = kelimeSay + 1

            End If

            If str.Length = kelimeSay = 2 Then

            End If

            str = str.ToUpper

        Next

        MsgBox("Girilen cümle" & " " & kelimeSay & " " & "kelimeden oluşmaktadır." & vbCrLf & "Girilen Cümle : " & " " & str)

    End Sub

End Class

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN