程序代码 Private Declare Function LCMapString Lib "kernel32" Alias "LCMapStringA" (ByVal Locale As Long, ByVal dwMapFlags As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, ByVal lpDestStr As String, ByVal cchDest As Long) As Long Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long Private Sub Command1_Click() '简转繁     Dim STlen As Long     Dim STf As String     STlen = lstrlen(Text1)     STf = Space(STlen)     LCMapString &H804, &H4000000, Text1, STlen, STf, STlen     Text1 = STf End Sub Private Sub Command2_Click() '繁转简     Dim STlen As Long     Dim STj As String     STlen = lstrlen(Text1)     STj = Space(STlen)     LCMapString &H804, &H2000000, Text1, STlen, STj, STlen     Text1 = STj End Sub