VB 程序代码---过程

来源：百度知道 编辑：UC知道 时间：2024/06/25 03:40:39
7、 在文本框Text1中输入多个英文语句，单击“转换”按钮，将文本框Text1中的内容做如下转换：遇到句号时，将Text1中的每句的开头字母大写，每段的开头字母也大写，在文本框Text2中重新显示。

这个的代码有人可以救下我吗..??要交功课可是不会做啊..><

Private Sub Command1_Click()
Dim a() As String
Dim b() As String
Text2.Text = Space(2)
a = Split(Text1.Text, Chr(13) & Chr(10))
For j = 0 To UBound(a)
b() = Split(a(j), ".")
For i = 0 To UBound(b)
b(i) = Trim(b(i))
If b(i) <> "" Then
If Asc(Left(b(i), 1)) >= 97 And Asc(Left(b(i), 1)) <= 122 Then
b(i) = UCase(Left(b(i), 1)) & Right(b(i), Len(b(i)) - 1)
End If
End If
If b(i) <> "" Then Text2.Text = Text2.Text & b(i) & ". "
Next i
Text2.Text = Text2.Text & vbCrLf & Space(2)
Next j
End Sub