谁知道怎么输入一段话，然后将这段话放入数组中啊？输入的是英语~大家快帮忙回答下啊，急需

请问..是怎么放入数组中呢?..
如
this my bbs
如果这句话中怎么放入数组呢?...

这是我的问题啊~

我倒..
我是说.
this is my bbs
这句话中..你想怎么放入数组中呢?..
是想a(0)="t"还是a(0)="th"还是a(0)="this"呢?...你说清楚吧..

哦，我的意思是a(0)="t"

我是想做一道题目，我的思路是输入一段文章，将其中的字符一个一个放到数组中，然后我先从文章里面随便取一个出来，如果是空格，那么我看后面那个字符，如果是大写，那么我把取出来的那个字符放回到它在数组中所在的位置，接着，如果后面那个不是大写，那么我就将它改为小写，然后将改好后的东西代替它在数组中原来的位置，最后将数组打印出来。能不能帮我看下，我运行的时候它说我下标越界面
题目：输入一段文章，将每个单词首字母从小写改为大写
Private Sub Command1_Click()
Dim i, tot, dz, ss As Integer, zf, hs, fs, ms, a() As String
tot = Len(Text1.Text)
For i = 1 To tot
zf = Mid(Text1, i, 1)
If zf = " " Or zf = "," Then
hs = Mid(Text1, i + 1, 1)
If (Asc(hs) > 65) And (Asc(hs) < 90) Then
a(i + 1) = a(i + 1)
End If
ss = Asc(hs) - 32
a(i + 1) = Chr(ss)
End If
Next i
For i = 1 To tot
Print a(i)
Next i
End Sub

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

问个问题Option Explicit这个是什么意思啊`？

强制声明变量..所有变量..都必须先定义.再使用..

哦，那为什么我写的那个程序运行时会出现下标越界呢？改过以后还是一样
Private Sub Command1_Click()
Dim i, tot, ss As Integer, zf, hs, arr() As String
tot = Len(Text1.Text)
For i = 1 To tot
zf = Mid(Text1, i, 1)
If zf = " " Or zf = "," Then
hs = Mid(Text1, i + 1, 1)
If (Asc(hs) > 65) And (Asc(hs) < 90) Then
arr(i + 1) = arr(i + 1)
End If
ss = Asc(hs) - 32
arr(i + 1) = Chr(ss)
End If
Next i
For i = 1 To tot
Print arr(i)
Next i
End Sub