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

这是我的问题啊~

哦，我的意思是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 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

按照你的程序的话，如果是标点的话就没法将后面一个改为大写了~，而且如果空格的后面那个是大写，那么你就改错了~~

按照你的程序的话，如果是标点的话就没法将后面一个改为大写了~，而且如果空格的后面那个是大写，那么你就改错了~~ 如果不用数组，那么如果空格后面那个是大写的话，怎么判断啊~~~

那怎么判断首字母呢？如果直接判断的话得用MID吧~~MID是取，应该是复制一个出来~~而不是剪切一个出来，那么如何将复制出来的制放回那应该在的地方呢？就比方说 this is mybbs，应该改为This Is Mybbs,如果不放数组，用MID取的话，我们取出第一个字符，发现是空格，那么后面那个改为大写T，用MID取出后面一个改好，然后怎么放进去一起打印出来呢？还有你上面写的程序结果貌似是thisismybbs并没把小写改大写啊~

他是回答我了，但是如果是在TEXT1中输入 id d,s d结果是Id D,s啊，逗号后面那个没改大写