Option Explicit

Private Sub Command1_Click()
Dim arr() As String
Dim strLine As String
strLine = "this is my bbs"
Dim i As Integer
Dim strLength As Integer
strLength = Len(strLine)
ReDim arr(strLength) As String

For i = 1 To strLength
arr(i) = Mid(strLine, i, 1)
Next

For i = 1 To strLength
If arr(i) <> " " Then
Print arr(i);
End If
Next
End Sub

红色那句我忘记了什么意思..可以说说吗?