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...