作业帮 > 综合 > 作业

vb编程题~输入一段英文短文,将其中每个单词的首字母改为大写,若有两个或两个以上的连续空格……

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/28 05:42:38
vb编程题~输入一段英文短文,将其中每个单词的首字母改为大写,若有两个或两个以上的连续空格……
输入一段英文短文,将其中每个单词的首字母改为大写,若有两个或两个以上的连续空格,把它们删成一个空格,将修改后的短文显示出来.
Private Sub Form_Click()
Dim a As Variant
Dim strT As String
Dim i As Long
a = Split(Text1.Text," ")
For i = LBound(a) To UBound(a)
If Trim(a(i)) vbNullString Then
strT = strT & UCase$(Left$(a(i),1)) & Right$(a(i),Len(a(i)) - 1) & " "
End If
Next
Text2.Text = strT
End Su