Visual Basicで単語を分割する

Question

私のプログラミング割り当ての1つは、単語を取り込んで複数にするVBプログラムを作成する必要があります。私たちは直面している困難について書かなければなりません。
私はちょうどこれについてどうやって動くように努めています。私が見ることのできるところから、文字をその文字に分割し、文字列の最後の文字が何であるかを特定する必要があります。そこから、string.join演算子を使って最後に "s"のようなものを追加するif文のロードのケースだと思います。結合はかなりシンプルだと思われますが、入力語を分割して最後の文字を特定する方法です。
私はuniで初めての1年目なので、プログラミングはあまり進んでいないので、可能な限り知識が限られている人には理解できるようにしてください！あなただけ

Dim myString As String = "Shoe" 
myString += "s" 
'myString is now "Shoes" 

または最後の文字が既にあるかどうかをチェックしますか、文字列の末尾に「S」の文字を追加したい場合は、事前に

おかげで、 アンドリュー

Answer 1

マイクとウィルは、多くの可能性があります言ったように、このコードは、単にいくつかのケースのために、それはIfステートメントを使用している、しかしCase文は

Protected Sub btnPlural_Click(sender As Object, e As EventArgs) Handles btnPlural.Click 
    Dim strWord As String 
    Dim lastLetter As String 
    Dim secondlast As String 


    If txtWord.Text <> "" Then 
     strWord = txtWord.Text 
     lastLetter = GetChar(strWord, strWord.Length) 
     secondlast = GetChar(strWord, strWord.Length - 1) 
     If lastLetter = "r" Or lastLetter = "p" Or lastLetter = "t" Then 
      strWord = strWord + "s" 
      lblPlural.Text = strWord 
     End If 
     If lastLetter = "e" Then 
      If secondlast = "f" Then 
       strWord = strWord.Substring(0, strWord.Length - 2) + "ves" 
       lblPlural.Text = strWord 
      Else 
       strWord = strWord + "s" 
       lblPlural.Text = strWord 
      End If 

     End If 

     If lastLetter = "x" Then 
      strWord = strWord + "es" 
      lblPlural.Text = strWord 
     End If 
     If lastLetter = "h" Then 
      If secondlast = "c" Then 
       strWord = strWord + "es" 
       lblPlural.Text = strWord 
      Else 
       strWord = strWord + "s" 
       lblPlural.Text = strWord 
      End If 
     End If 

     If lastLetter = "y" Then 
      If secondlast = "t" Or secondlast = "d" Or secondlast = "n" Then 
       strWord = strWord.Substring(0, strWord.Length - 1) + "ies" 
       lblPlural.Text = strWord 
      ElseIf secondlast = "e" Or secondlast = "a" Or secondlast = "o" Then 
       strWord = strWord + "s" 
       lblPlural.Text = strWord 
      End If 
     End If 

    End If 

End Sub 

良いかもしれない希望これはA

Answer 2

"s"、 "かわいい"を "かわい子"などに変更しますか？

Answer 3

これで終わりに年代 '文字を追加する方法についてだけ話題であれば、私はString.Formatを使用すると「s」を追加することをお勧め：

Public Function pluralize(ByVal DesignString AS String) AS String 

     Return String.Format("{0}s",DesignString) ' ex : Shoe -> Shoes 

End Function 

これはあなたのためのhelpulすることができホップ。