填空题 本程序的功能是将汉字的区位码转换成以十六进制数形式表示的机内码。汉字的区位码由4位数字组成,前两位数字表示汉字在编码表中的区号,后两位数字表示位号,区号和位号均为十进制数。例如汉字"中"的区位码是5448,即"中"的区号是54,位号是48。将区号与位号分别加上160,再转换成十六进制数形式,就是"中"的机内码。请完善本程序。 Option Explicit Private Sub CmdChange_Click1 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= 2(22) 3 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= 4(23) 5 If p>9 Then q=Chr(55+p) Else q=CStr(p) EndIf 6(24) 7 d=d/16 Loop Until 8(25) 9 End Function