你好;因为循环结束后,最后一组单词没有添加到list里的原因,在循环结束的外面添加
List1.AddItem c就ok了,希望能帮到你：）
如果最后一位也是空格的话,就在循环外加个条件：
if c"" then
List1.AddItem c
end if
vb,我想要问的是我要在文本框输入一串英文句子,然后按单词分解到列表框中!该怎么办?
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
可就是最后的一组单词不能截取出来,为什么?
我写了一段代码：
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
可就是最后的一组单词不能截取出来,为什么?
其他人气：625 ℃时间：2020-05-18 22:52:57
优质解答
我来回答
类似推荐
猜你喜欢
- 1直角三角形已知两边求角度
- 2将以下单句改为宾语从句的复句
- 3这个议程式怎么解:14X+6y=850 6X+14Y=650
- 4化简[2sin2a/(1+cos2a)]*(cos^2a/cos2a)
- 5李老师买笔记本的数学题?
- 6以A E I O U 开头的单词,前边加an
- 7弹簧测力计两端受到的拉力不相同时,为什么示数是其中较小的力?
- 8△ABC中∠ABC=50°∠ACB=80°延长CB至D使DB=BA,延长BC至E,使CE=CA.连接AD,AE.求∠D,∠E,∠DAE的度数
- 9列宁新经济政策的时间,内容,作用,分别是什么?
- 10在三角形ABC中,一直内角A=60度,边BC=2根号3.设内角B=x.周长为y.求y＝f(x)的解析式和定义域.