Tanjiahe, jiangnan
4/f, chuangye building, new and hi-tech devel. zone
room 2002, no.5, lane 97, zhidan lu
109, fangzhi lu
longyan industrial zone, humen town
23, youju jie
大概就是这样的一列
Dim ssTmp As String
Dim i As Integer
Dim bFirst As Boolean
‘ssTmp是你要处理的语句
bFirst = True
For i = 0 To Len(ssTmp) - 1
If bFirst And Asc(Mid(ssTmp, i + 1, 1)) <> 32 Then
ssTmp = Left(ssTmp, i) + UCase(Mid(ssTmp, i + 1, 1)) + Right(ssTmp, Len(ssTmp) - i - 1)
bFirst = False
End If
If Mid(ssTmp, i + 1, 1) = " " Then
bFirst = True
End If
Next i