VB 怎么判断一个以空格隔开的字符串里的字符串位数。

' 用这个函数就可以实现 你的要求：
Function strlen(ByVal ss$) As String
Dim I%, a, b$
a = Split(ss)
For I = 0 To UBound(a)
b = b & " " & Len(a(I))
Next I
strlen = Trim(b)
End Function

' 调用可以用下面的语句，在窗体上单击后，在窗体上显示结果 “1 2 3”：

Private Sub Form_Click()
Dim ss$
ss = "a bb ccc"
Print strlen(ss)

End Sub

Dim str="a bb ccc"
Dim s() As String
s=split(str," ")
-->len(s(1))=1
len(s(2))=2
len(s(3))=3

dim i as integer
dim j as integer
for i =1 to len(text1.text)
if mid(i,1)=" " then
msgbox j
j=0
else
j=j+1
end if
next