VB 程序设计

10个成员

如何取得汉字的区位码

发表于 2016-12-22 3548 次查看
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))

 

发表回复
你还没有登录,请先登录注册