vb,我想要问的是我要在文本框输入一串英文句子,然后按单词分解到列表框中!该怎么办?
我写了一段代码：
Dim midd As String
For i = 1 To Len(Text1.Text)
If mid(Text1.Text,i,1) = " " Then
List1.AddItem c
c = ""
Else
c = c + mid(Text1.Text,i,1)
End If
Next
可就是最后的一组单词不能截取出来,为什么?
人气：312 ℃ 时间：2020-05-18 22:52:57
解答
你好;因为循环结束后,最后一组单词没有添加到list里的原因,在循环结束的外面添加
List1.AddItem c就ok了,希望能帮到你：）
如果最后一位也是空格的话,就在循环外加个条件：
if c"" then
List1.AddItem c
end if
推荐
猜你喜欢
