Dim strSimplifiedChinese, strTraditionalChinese As String
strSimplifiedChinese = "我是中国人！"
strTraditionalChinese = StrConv(strSimplifiedChinese, VbStrConv.TraditionalChinese) '简转繁
Console.Write(strTraditionalChinese)
strSimplifiedChinese = StrConv(strTraditionalChinese, VbStrConv.SimplifiedChinese) '繁转简
Console.Write(strSimplifiedChinese)
本文地址：http://com.8s8s.com/it/it45758.htm