VB.NET取词和显示的每个字母的ListBox中

Question

Private Sub btnWord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWord.Click 
    Dim Inputter As String 
    Dim Words As String = "" 

    Do 
     Inputter = InputBox("Enter word", "Enter Word") 
     If Inputter <> String.Empty Then 
      lstDisplay.Items.Add(Inputter) 
      Word += Inputter.Substring(0, 1) 
     End If 
    Loop Until Inputter <> String.Empty 
    ' SOMETHING GOES HERE!!!!!' 
    lstDisplay.Items.Add("---") 
    lstDisplay.Items.Add(Word) 
End Sub 

下面是它的工作原理，当你点击它会显示一个输入框，按钮等等，例如输入“CAT”。

但我不知道如何让它在列表框中执行C（换行符）A（换行符）T（换行符）。请帮忙！

Ç
一个
牛逼
-
CAT

Answer 1

Private Sub btnWord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWord.Click 
    Dim Inputter As String Dim Words As String = "" 

    Inputter = InputBox("Enter word", "Enter Word") 
    Dim i as Integer 
    For i = 0 To Inputter.Length-1 
     lstDisplay.Items.Add(Inputter.Chars(i).ToString) 
    Next 

    lstDisplay.Items.Add("---") 
    lstDisplay.Items.Add(Word) 
End Sub