vb初级问题●怎样能将一段文字中一些连续的若干空格合并成一个

Private Sub Command1_Click()
Dim s As String
Dim i As Integer
Dim length As Integer
Dim str As String

s = txt.Text
length = Len(s)
length = length - 1

For i = 1 To length
If Not (Mid(s, i, 1) = Chr(32) And Mid(s, i + 1, 1) = Chr(32)) Then
'没有出现连续的空格，将该字符赋值给str
str = str & Mid(s, i, 1)
End If
Next

str = str & Mid(s, length + 1, 1)
'将最后一个字符连接起来
txt.Text = str

End Sub
OK,程序到此已完全实现你要的功能，运行环境VB6+WinXP.
注解：txt为文本框．