vb编程题~输入一段英文短文,将其中每个单词的首字母改为大写,若有两个或两个以上的连续空格……
问题描述：
vb编程题~输入一段英文短文,将其中每个单词的首字母改为大写,若有两个或两个以上的连续空格……
输入一段英文短文,将其中每个单词的首字母改为大写,若有两个或两个以上的连续空格,把它们删成一个空格,将修改后的短文显示出来.
答
Private Sub Form_Click()Dim a As VariantDim strT As StringDim i As Longa = Split(Text1.Text," ")For i = LBound(a) To UBound(a)If Trim(a(i)) vbNullString ThenstrT = strT & UCase$(Left$(a(i),1)) & Right...