Private Sub Command1_Click ()
Dim s As String, ch As String, flag As Boolean
Dim ch2 As String, res As String, i As Integer
s=Text.Text：res=“”
①
Do While＜= Len (s)
flag= False
ch= Mid (s, i, 1)
If i= 1 And ch＞=“a”And ch2＜=“z”Then
ch= Chr (Asc(ch)-32)′小写字母转换为大写字母
End If
If ch=“.” Or ch=“？” Then flag=True
ch2= Mid（s，i+1. 1）
If flag And ch2＞=“a”And ch2＜=“Z”Then
ch2= Chr (Asc(ch2)-32)′小写字母转换为大写字母
res= ②
i=i+2
Else
i=i+1
res=res+ch
End If
Loop
Text2. Text=res
End Sub
① ②
