如何将标点以后的字母从小写改为大写啊~，并打印出来，希望大家指点下啊~~原题是，输入一段文章，将每个单词的首字母从小写改为大写~

Private Sub Command1_Click()
Dim para As String, c As String, e As String, i As Integer, tot As Integer
para = Lcase(Text1)
tot = Len(para)
Mid(para, 1, 1) = Ucase(Left(para, 1))
For i = 2 To tot
c = Mid(para, i, 1)
If Instr(1, " .:?!""", c) > 0 Then
e = Mid(para, i + 1, 1)
Mid(para, i + 1, 1) = Ucase(e)
End If
Next i
Text2 = para
End Sub

用楼上的方法就行...

欢迎slore多回来..

他是回答我了~~但是如果有个逗号就不会改了，就像 i am,d

大哥...你可以改改代码...变成自己要求的吗?..难道要别人一个字母都要写到你满意才行吗?...编程就是要举一反三啊..

...问题就是我还没到那程度啊`~他写的Mid(para, 1, 1) = Ucase(Left(para, 1))
If Instr(1, " .:?!""", c) > 0 Then
是什么意思我都不知道啊~~

那买本基础的书..从第一页开始看起吧..

我才学了10节课的VB啊~~我们老师程序代码从来不说的，只告诉我们解决问题的方法——思路，最多说点关键的函数名，他写的那几行的函数我学都没学过`~~~怎么举一反三？

我也希望可以啊~但是后天要交报告啊~~我没那么时间了`~所以才求一份程序的~~

E文里本身","后面就不用大写啊

如果你想","后也变的话，你在把Instr(1, " .,:?!""", c) > 0 改成 Instr(1, " .,:?!""", c) > 0

注意红色部分.

兰色的函数你自己搜索下，都是简单的常用的函数。。。。