j = 0
對於i = Len(TmpStr) - 1至1步驟2
雷迪姆保護區
RS(j) = Val(Mid(TmpStr，I，1))* 16+Val(Mid(TmpStr，i + 1，1))
j = j + 1
接下來我
對於j = 0至j - 1
Text1。sel text = Hex(RS(j))& amp；" "
下壹個j
末端接頭
也就是說，轉換成四位二進制碼的keyascii()被分成9個9。1 9.
會有各種編程書籍~ ~自己改
建議匯編解釋的再詳細壹點~~ ~註意壓縮BCD碼和未壓縮BCD碼的區別