 |
假定有一个字符串"CECAD7A8BCD2"，这个字符串是某三个汉字的内码。使用下面的代码进行转换(假定你运行在中文Windows下)：
Private Sub Command1_Click()
Dim s As String, s2 As String
s = "CECAD7A8BCD2"
s2 = ""
For i = 1 To Len(s) Step 4
s2 = s2 + Chr("&H" + Mid(s, i, 4))
Next
Print s2
End Sub
此问题由李海回答。
附加关键字：编程, 源程序, programming, source code, Visual Basic, VB, 其他方面, 。
|
如何在程序中实现将汉字内码输出成汉字的功能
