本程序的功能是将汉字的区位码转换成以十六进制数形式表示的机内码。汉字的区位码由4位数字组成,前两位数字表示汉字在编码表中的区号,后两位数字表示位号,区号和位号均为十进制数。例如汉字"中"的区位码是5448,即"中"的区号是54,位号是48。将区号与位号分别加上160,再转换成十六进制数形式,就是"中"的机内码。请完善本程序。
Option Explicit
Private Sub CmdChange_Click()
Dim qw As String,jn As String
qw=Text1
Text2=qw2jn(qw)
End Sub
Private Function qw2jn(st As String) As String
Dim n1 As Integer,n2 As Integer
n1=Val(Left(st,2))+160
n2=（）
qw2jn=d2h(n1) & d2h(n2)
End Function
Private Function d2h(d As Integer) As String
Dim p As Integer,q As String*1
Do
p= （）
If p>9 Then
q=Chr(55+p)
Else
q=CStr(p)
EndIf
（）
d=d\16
Loop Until （）
End Function
