主题：请教，关于如何做“北京转换成BeiJing！！！

也可以取第一个字母来替换！！

Dim s1 As String = getpy("大海")
Dim s2 As String
Dim s3 As String
Dim s4 As String
Dim ss() As String = s1.split(" ")
For Each s1 In ss
    s2 = s1.SubString(0,1) '取开头字母
    s3= s1.SubString(1,s1.Length-1) '取后面的字母
    s4 +=s2.ToUpper & s3 '转换并 拼接
Next
output.show(s4)