题目

vb编程题~输入一段英文短文,将其中每个单词的首字母改为大写,若有两个或两个以上的连续空格……
输入一段英文短文,将其中每个单词的首字母改为大写,若有两个或两个以上的连续空格,把它们删成一个空格,将修改后的短文显示出来.

提问时间：2021-03-23

答案

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