vb规范英语文章：对输入的任意大小写文章进行整理

来源：百度知道 编辑：UC知道 时间：2024/05/29 15:59:23
要求很简单哦：所有句子开头（句子结束符为。？！）为大写字母，其他都是小写字母。用For和Do{while|until}……Loop和Do ……Loop {while|until}实现。
作业上的提示是：必须设置一个变量，存放当前处理的字符的前一个字符，来判断前一个字符是否为句子结束符。
求高手帮帮我，积分只有这点了，见谅啊。

Dim myInPut As String, myStr As String, i As Integer, a
CommonDialog1.ShowOpen
myInPut = CommonDialog1.FileName
Open myInPut For Binary As #1
myStr = Input(LOF(1), 1)
Close
a = Split(myStr, "。")
Open "c:\整理后的文章.txt" For Output As #1
For i = 0 To UBound(a)
myStr = myStr & UCase(Mid(a(i), 1, 1)) & LCase(Mid(a(i), 2)) & "。"
Next
Print #1, myStr
Close

VB根本就不区分大小写，搞这些有啥用？
如果要代码美观，下个小工具就可以了。