Dim strSimplifiedChinese, strTraditionalChinese As String strSimplifiedChinese = "我是中国人!" strTraditionalChinese = StrConv(strSimplifiedChinese, VbStrConv.TraditionalChinese) ''''简转繁 Console.Write(strTraditionalChinese) strSimplifiedChinese = StrConv(strTraditionalChinese, VbStrConv.SimplifiedChinese) ''''繁转简 Console.Write(strSimplifiedChinese)
|