![[填空题] 本程序的功能是将汉字的区位码转换成以十六进制数形式表示的机内码。汉字的区位码由4位数字组成,前两位数字表示汉字在编码表中的区号,后两位数字表示位号,区号和位号均为十进制数。例如汉字&quo](http://www.mshxw.com/aiimages/31/257883.png "[填空题] 本程序的功能是将汉字的区位码转换成以十六进制数形式表示的机内码。汉字的区位码由4位数字组成,前两位数字表示汉字在编码表中的区号,后两位数字表示位号,区号和位号均为十进制数。例如汉字&quo")
[填空题] 本程序的功能是将汉字的区位码转换成以十六进制数形式表示的机内码。汉字的区位码由4位数字组成,前两位数字表示汉字在编码表中的区号,后两位数字表示位号,区号和位号均为十进制数。例如汉字"中"的区位码是5448,即"中"的区号是54,位号是48。将区号与位号分别加上160,再转换成十六进制数形式,就是"中"的机内码。请完善本程序。Option ExplicitPrivate Sub CmdChange_Click()Dim qw As String,jn As Stringqw=Text1Text2=qw2jn(qw)End SubPrivate Function qw2jn(st As String) As StringDim n1 As Integer,n2 As Integern1=Val(Left(st,2))+160n2=（）qw2jn=d2h(n1) & d2h(n2)End FunctionPrivate Function d2h(d As Integer) As StringDim p As Integer,q As String*1Dop= （）If p>9 Thenq=Chr(55+p)Elseq=CStr(p)EndIf（）d=d16Loop Until （）End Function
参考答案：
Val(Right(st,B))+AF0 或Val(Mid(st,C,B))+AF0；d Mod AF；dBh=q & dBh；d=0问题解析:
解析无
