已知一个汉字的区位码为3565,求其机内码,要写出计算步骤
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/28 14:37:01
![已知一个汉字的区位码为3565,求其机内码,要写出计算步骤](/uploads/image/z/6467403-3-3.jpg?t=%E5%B7%B2%E7%9F%A5%E4%B8%80%E4%B8%AA%E6%B1%89%E5%AD%97%E7%9A%84%E5%8C%BA%E4%BD%8D%E7%A0%81%E4%B8%BA3565%2C%E6%B1%82%E5%85%B6%E6%9C%BA%E5%86%85%E7%A0%81%2C%E8%A6%81%E5%86%99%E5%87%BA%E8%AE%A1%E7%AE%97%E6%AD%A5%E9%AA%A4)
已知一个汉字的区位码为3565,求其机内码,要写出计算步骤
已知一个汉字的区位码为3565,求其机内码,要写出计算步骤
已知一个汉字的区位码为3565,求其机内码,要写出计算步骤
就用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(低)
------------------------------------------