说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何取得汉字的区位码

HTML文档下载 WORD文档下载 PDF文档下载
VB如何取得汉字的区位码

Dim f
Dim L1, R1 As Integer
Dim InputStr As String
InputStr = "汉"
f = Hex(Asc(InputStr))
L1 = CInt("&H" + Mid(f, 1, 2))
R1 = CInt("&H" + Mid(f, 3, 2))

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘