vb的text控件

我这种方法只过滤多余的空格。
Private Sub Command1_Click()
Dim a, str As String, i As Integer, j As Integer
For i = 1 To Len(Text1.Text) '遍历整个字符串
If Asc(Mid(Text1.Text, i, 1)) = 32 Then '当前字符是一个空格时
If Asc(Mid(Text1.Text, i + 1, 1)) <> 32 Then '如果下一个字符不是空格则跳过空格添加后面的内容
str = str & " " & Mid(str, i + 1)
End If
Else '当前字符不是空格则赋值到变量里
str = str & Mid(Text1.Text, i, 1)
End If
Next
a = Split(str) '以空格为分隔符取数组，并输出。
For j = 0 To UBound(a)
Print "第" & j + 1 & "个元素的值为：" & a(j)
Next
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 And Right(Text1.Text, 1) = " " Then
KeyAscii = 0
Endif
End Sub

ynisue方法好，直接在输入的时候就限制了，不能输入两个以上空格，代码简单，小弟也学习了

根本就不需要限制的，直接
while instr(strl," ")<