题目

已知一个汉字的区位码为3565,求其机内码,要写出计算步骤

提问时间：2021-04-07

答案

就用VB给你了,验证都已经通过.计算步骤都标在了右边的注释里面了
------------------------------------------
Dim 区位码 As Long,机器码 As Long,高 As Long,低 As Long
'------ 区位码(＝&H3565) → 机器码(＝C3E1)
区位码 = &H3565
高 = (Hex((区位码 And &HFF00) / &H100) + &H20) + &H80 '取出高八位后+H20 再加H80
低 = (Hex(区位码 And &HFF) + &H20) + &H80 ‘得到高八位机器码,低八位类似
机器码 = (高 * &H100) + 低 '把高低八位的拼接得到机器码
MsgBox "机器码＝" & Hex(机器码) & " 高八位＝" & Hex(高) & " 低八位＝" & Hex(低)
'------ 机器码(＝C3E1) → 汉字(＝冕) 这个只是验证用的,与你题目无关
MsgBox "机器码＝" & Hex(机器码) & " 汉字＝" & Chr(机器码)
'------ 汉字“冕” 直接→ 机器码(＝C3E1) 这是另一个问题,与你题目无关
机器码 = Asc("冕") - &HFFFF0000
高 = (机器码 And &HFF00) / &H100
低 = 机器码 And &HFF
MsgBox "机器码＝" & Hex(机器码) & " 高八位＝" & Hex(高) & " 低八位＝" & Hex(低)
------------------------------------------