Vb.net NET获取单词的每个字母并显示在列表框中 Private Sub btnWord\u Click（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理btnWord。单击 作为字符串的Dim输入程序 将单词变暗为String=“” 做 输入者=输入框（“输入单词”、“输入单词”） 如果输入字符串。则为空 lstDisplay.Items.Add（输入者） Word+=输入程序子字符串（0，1） 如果结束 循环直到输入字符串。为空 “这里有东西！” lstDisplay.Items.Add（“--”） lstDisplay.Items.Add（Word） 端接头

下面是它的工作原理，当您单击按钮时，它会显示一个输入框，例如键入“CAT”

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

C
A
T
-
猫

 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

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