怎样得到汉字的编码?

Jerrych 2000-07-18 01:38:00
...全文
146 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
Jerrych 2000-08-04
  • 打赏
  • 举报
回复
都不行,不能得分,我怎样才能把这个贴子删掉
mafangsan 2000-07-23
  • 打赏
  • 举报
回复
不明白你的意思
Jerrych 2000-07-23
  • 打赏
  • 举报
回复
这里的区位码我输入之后,不是正确的编码,请问还有别的编码么?
mafangsan 2000-07-18
  • 打赏
  • 举报
回复
不知道你要汉字的什么编码?所以多给一点。
Private Sub Form_Click()
Dim Arr() As Byte
Arr = StrConv("网", vbFromUnicode)
msgbox Hex(Arr(0)) & Hex(Arr(1)) & "H" '内码
msgbox Str(Arr(0) - 128) & Str(Arr(1) - 128) '国标码
msgbox Str(Arr(0) - 160) & Str(Arr(1) - 160) '区位码
End Sub

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧