Dimf
DimL1,R1AsInteger
DimInputStrAsString
InputStr=”汉”
f=Hex(Asc(InputStr))
L1=CInt(“&H” Mid(f,1,2))
R1=CInt(“&H” Mid(f,3,2))->
Dimf
DimL1,R1AsInteger
DimInputStrAsString
InputStr=”汉”
f=Hex(Asc(InputStr))
L1=CInt(“&H” Mid(f,1,2))
R1=CInt(“&H” Mid(f,3,2))->