本程序的功能是将汉字的区位码转换成以十六进制数形式表示的机内码。汉字的区位码由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

女，16岁。右膝外上方肿痛3个月，膝关节伸屈活动受限。X线片示右股骨下端有一破坏灶，边缘膨胀，中央有肥皂泡样改变，向内已超过中线，远端距关节面不足1cm，无骨膜反应

如果诊断为骨巨细胞瘤Ⅰ～Ⅱ级，哪项是错误的（）

A.病灶刮除填塞骨水泥

B.瘤段骨切除+同种异体半关节移植术

C.股骨中上1/3截肢，安装假肢

D.病段骨切除，带血管骨移植

E.病灶刮除骨水泥填塞术后长腿石膏托外固定